uawdijnntqw1x1x1
IP : 3.147.72.74
Hostname : ns1.eurodns.top
Kernel : Linux ns1.eurodns.top 4.18.0-553.5.1.lve.1.el7h.x86_64 #1 SMP Fri Jun 14 14:24:52 UTC 2024 x86_64
Disable Function : mail,sendmail,exec,passthru,shell_exec,system,popen,curl_multi_exec,parse_ini_file,show_source,eval,open_base,symlink
OS : Linux
PATH:
/
home
/
sudancam
/
.
/
..
/
..
/
usr
/
share
/
locale
/
am
/
..
/
chm
/
..
/
eu
/
..
/
mwr
/
..
/
vai
/
..
/
tiv
/
..
/
.
/
.
/
en@hebrew
/
..
/
akk
/
..
/
sr_RS
/
..
/
en@piglatin
/
..
/
min
/
..
/
nap
/
..
/
loz
/
..
/
bn_IN
/
..
/
ia
/
..
/
..
/
perl5
/
if.pm
/
/
package if; $VERSION = '0.0602'; sub work { my $method = shift() ? 'import' : 'unimport'; die "Too few arguments to 'use if' (some code returning an empty list in list context?)" unless @_ >= 2; return unless shift; # CONDITION my $p = $_[0]; # PACKAGE (my $file = "$p.pm") =~ s!::!/!g; require $file; # Works even if $_[0] is a keyword (like open) my $m = $p->can($method); goto &$m if $m; } sub import { shift; unshift @_, 1; goto &work } sub unimport { shift; unshift @_, 0; goto &work } 1; __END__ =head1 NAME if - C<use> a Perl module if a condition holds =head1 SYNOPSIS use if CONDITION, MODULE => ARGUMENTS; =head1 DESCRIPTION The construct use if CONDITION, MODULE => ARGUMENTS; has no effect unless C<CONDITION> is true. In this case the effect is the same as of use MODULE ARGUMENTS; Above C<< => >> provides necessary quoting of C<MODULE>. If not used (e.g., no ARGUMENTS to give), you'd better quote C<MODULE> yourselves. =head1 BUGS The current implementation does not allow specification of the required version of the module. =head1 AUTHOR Ilya Zakharevich L<mailto:ilyaz@cpan.org>. =cut
/home/sudancam/./../../usr/share/locale/am/../chm/../eu/../mwr/../vai/../tiv/../././en@hebrew/../akk/../sr_RS/../en@piglatin/../min/../nap/../loz/../bn_IN/../ia/../../perl5/if.pm