Linux host45.registrar-servers.com 4.18.0-513.18.1.lve.2.el8.x86_64 #1 SMP Sat Mar 30 15:36:11 UTC 2024 x86_64
Apache
: 198.54.116.152 | : 216.73.216.115
Cant Read [ /etc/named.conf ]
8.1.32
bankpromax
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
[ HOME SHELL ]
Name
Size
Permission
Action
Attribute
[ DIR ]
drwxr-xr-x
B
[ DIR ]
drwxr-xr-x
CPAN
[ DIR ]
drwxr-xr-x
Class
[ DIR ]
drwxr-xr-x
Compress
[ DIR ]
drwxr-xr-x
Config
[ DIR ]
drwxr-xr-x
DBM_Filter
[ DIR ]
drwxr-xr-x
Devel
[ DIR ]
drwxr-xr-x
ExtUtils
[ DIR ]
drwxr-xr-x
File
[ DIR ]
drwxr-xr-x
Getopt
[ DIR ]
drwxr-xr-x
I18N
[ DIR ]
drwxr-xr-x
IO
[ DIR ]
drwxr-xr-x
IPC
[ DIR ]
drwxr-xr-x
Locale
[ DIR ]
drwxr-xr-x
Math
[ DIR ]
drwxr-xr-x
Memoize
[ DIR ]
drwxr-xr-x
Module
[ DIR ]
drwxr-xr-x
Net
[ DIR ]
drwxr-xr-x
Pod
[ DIR ]
drwxr-xr-x
Search
[ DIR ]
drwxr-xr-x
Term
[ DIR ]
drwxr-xr-x
Text
[ DIR ]
drwxr-xr-x
Thread
[ DIR ]
drwxr-xr-x
Tie
[ DIR ]
drwxr-xr-x
Time
[ DIR ]
drwxr-xr-x
URI
[ DIR ]
drwxr-xr-x
Unicode
[ DIR ]
drwxr-xr-x
User
[ DIR ]
drwxr-xr-x
encoding
[ DIR ]
drwxr-xr-x
overload
[ DIR ]
drwxr-xr-x
pod
[ DIR ]
drwxr-xr-x
unicore
[ DIR ]
drwxr-xr-x
vendor_perl
[ DIR ]
drwxr-xr-x
warnings
[ DIR ]
drwxr-xr-x
AnyDBM_File.pm
2.56
KB
-rw-r--r--
AutoLoader.pm
15.43
KB
-rw-r--r--
AutoSplit.pm
19.18
KB
-rw-r--r--
Benchmark.pm
30.3
KB
-rw-r--r--
CORE.pod
3.11
KB
-rw-r--r--
DB.pm
18.48
KB
-rw-r--r--
DBM_Filter.pm
14.05
KB
-rw-r--r--
DirHandle.pm
1.52
KB
-rw-r--r--
Dumpvalue.pm
17.14
KB
-rw-r--r--
English.pm
4.65
KB
-rw-r--r--
FileCache.pm
5.44
KB
-rw-r--r--
FileHandle.pm
6.63
KB
-rw-r--r--
FindBin.pm
4.45
KB
-rw-r--r--
Internals.pod
2.52
KB
-rw-r--r--
Memoize.pm
35.34
KB
-rw-r--r--
NEXT.pm
18.4
KB
-rw-r--r--
PerlIO.pm
10.21
KB
-rw-r--r--
Safe.pm
24.49
KB
-rw-r--r--
SelectSaver.pm
1.05
KB
-rw-r--r--
SelfLoader.pm
17.28
KB
-rw-r--r--
Symbol.pm
4.69
KB
-rw-r--r--
Test.pm
29.35
KB
-rw-r--r--
Thread.pm
8.09
KB
-rw-r--r--
UNIVERSAL.pm
6.44
KB
-rw-r--r--
URI.pm
33.97
KB
-rw-r--r--
XSLoader.pm
11
KB
-rw-r--r--
_charnames.pm
32.39
KB
-rw-r--r--
autouse.pm
4.14
KB
-rw-r--r--
base.pm
10.72
KB
-rw-r--r--
blib.pm
2.04
KB
-rw-r--r--
bytes.pm
3.67
KB
-rw-r--r--
bytes_heavy.pl
758
B
-rw-r--r--
charnames.pm
20.38
KB
-rw-r--r--
deprecate.pm
3.01
KB
-rw-r--r--
diagnostics.pm
18.59
KB
-rw-r--r--
dumpvar.pl
15.19
KB
-rw-r--r--
feature.pm
16.68
KB
-rw-r--r--
fields.pm
9.27
KB
-rw-r--r--
filetest.pm
3.91
KB
-rw-r--r--
if.pm
3.26
KB
-rw-r--r--
integer.pm
3.18
KB
-rw-r--r--
less.pm
3.13
KB
-rw-r--r--
locale.pm
4.74
KB
-rw-r--r--
meta_notation.pm
2.07
KB
-rw-r--r--
open.pm
7.83
KB
-rw-r--r--
overload.pm
52.06
KB
-rw-r--r--
overloading.pm
1.77
KB
-rw-r--r--
perl5db.pl
309
KB
-rw-r--r--
sigtrap.pm
7.43
KB
-rw-r--r--
sort.pm
5.94
KB
-rw-r--r--
strict.pm
4.63
KB
-rw-r--r--
subs.pm
848
B
-rw-r--r--
utf8.pm
8.9
KB
-rw-r--r--
utf8_heavy.pl
30.87
KB
-rw-r--r--
vars.pm
2.36
KB
-rw-r--r--
vmsish.pm
4.21
KB
-rw-r--r--
warnings.pm
43.71
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : if.pm
package if; $VERSION = '0.0606'; sub work { my $method = shift() ? 'import' : 'unimport'; unless (@_ >= 2) { my $type = ($method eq 'import') ? 'use' : 'no'; die "Too few arguments to '$type if' (some code returning an empty list in list context?)" } 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 (also can C<no> a module) =head1 SYNOPSIS use if CONDITION, MODULE => ARGUMENTS; no if CONDITION, MODULE => ARGUMENTS; =head1 DESCRIPTION The C<if> module is used to conditionally load or unload another module. The construct use if CONDITION, MODULE => ARGUMENTS; will load MODULE only if CONDITION evaluates to true. The above statement has no effect unless C<CONDITION> is true. If the CONDITION does evaluate to true, then the above line has the same effect as: use MODULE ARGUMENTS; The use of C<< => >> above provides necessary quoting of C<MODULE>. If you don't use the fat comma (eg you don't have any ARGUMENTS), then you'll need to quote the MODULE. =head2 EXAMPLES The following line is taken from the testsuite for L<File::Map>: use if $^O ne 'MSWin32', POSIX => qw/setlocale LC_ALL/; If run on any operating system other than Windows, this will import the functions C<setlocale> and C<LC_ALL> from L<POSIX>. On Windows it does nothing. The following is used to L<deprecate> core modules beyond a certain version of Perl: use if $] > 5.016, 'deprecate'; This line is taken from L<Text::Soundex> 3.04, and marks it as deprecated beyond Perl 5.16. If you C<use Text::Soundex> in Perl 5.18, for example, and you have used L<warnings>, then you'll get a warning message (the deprecate module looks to see whether the calling module was C<use>'d from a core library directory, and if so, generates a warning), unless you've installed a more recent version of L<Text::Soundex> from CPAN. You can also specify to NOT use something: no if $] ge 5.021_006, warnings => "locale"; This warning category was added in the specified Perl version (a development release). Without the C<'if'>, trying to use it in an earlier release would generate an unknown warning category error. =head1 BUGS The current implementation does not allow specification of the required version of the module. =head1 SEE ALSO L<Module::Requires> can be used to conditionally load one or modules, with constraints based on the version of the module. Unlike C<if> though, L<Module::Requires> is not a core module. L<Module::Load::Conditional> provides a number of functions you can use to query what modules are available, and then load one or more of them at runtime. L<provide> can be used to select one of several possible modules to load, based on what version of Perl is running. =head1 AUTHOR Ilya Zakharevich L<mailto:ilyaz@cpan.org>. =head1 COPYRIGHT AND LICENCE This software is copyright (c) 2002 by Ilya Zakharevich. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut
Close
