uawdijnntqw1x1x1
IP : 216.73.217.21
Hostname : ps-hcp-gr-004.pouyasazan.org
Kernel : Linux ps-hcp-gr-004.pouyasazan.org 5.14.0-611.55.1.el9_7.x86_64 #1 SMP PREEMPT_DYNAMIC Tue May 19 15:19:29 EDT 2026 x86_64
Disable Function : exec,system,passthru,shell_exec,proc_open,proc_close,popen,pcntl_exec,dl,show_source
OS : Linux
PATH:
/
home
/
..
/
..
/
..
/
usr
/
src
/
..
/
include
/
python3.9
/
..
/
python3.9
/
..
/
..
/
src
/
..
/
..
/
..
/
usr
/
share
/
perl5
/
subs.pm
/
/
package subs; our $VERSION = '1.03'; =head1 NAME subs - Perl pragma to predeclare subroutine names =head1 SYNOPSIS use subs qw(frob); frob 3..10; =head1 DESCRIPTION This will predeclare all the subroutines whose names are in the list, allowing you to use them without parentheses (as list operators) even before they're declared. Unlike pragmas that affect the C<$^H> hints variable, the C<use vars> and C<use subs> declarations are not lexically scoped to the block they appear in: they affect the entire package in which they appear. It is not possible to rescind these declarations with C<no vars> or C<no subs>. See L<perlmodlib/Pragmatic Modules> and L<strict/strict subs>. =cut require 5.000; sub import { my $callpack = caller; my $pack = shift; my @imports = @_; foreach my $sym (@imports) { *{"${callpack}::$sym"} = \&{"${callpack}::$sym"}; } }; 1;
/home/../../../usr/src/../include/python3.9/../python3.9/../../src/../../../usr/share/perl5/subs.pm