uawdijnntqw1x1x1
IP : 3.15.229.111
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
/
en_US
/
..
/
tn
/
..
/
.
/
frs
/
..
/
kk
/
..
/
uga
/
..
/
es_PR
/
..
/
st
/
..
/
znd
/
..
/
lv_LV
/
.
/
..
/
el_GR
/
..
/
fi
/
..
/
non
/
..
/
kos
/
..
/
lt
/
..
/
ay
/
..
/
gor
/
..
/
gaa
/
..
/
dsb
/
..
/
udm
/
..
/
so
/
..
/
nl_NL
/
.
/
..
/
es_UY
/
..
/
ps
/
..
/
lui
/
..
/
ady
/
.
/
..
/
mr_IN
/
..
/
den
/
..
/
la
/
..
/
kj
/
..
/
fr_BE
/
..
/
oc
/
..
/
brx
/
..
/
..
/
perl5
/
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
/home/sudancam/../../usr/share/locale/en_US/../tn/.././frs/../kk/../uga/../es_PR/../st/../znd/../lv_LV/./../el_GR/../fi/../non/../kos/../lt/../ay/../gor/../gaa/../dsb/../udm/../so/../nl_NL/./../es_UY/../ps/../lui/../ady/./../mr_IN/../den/../la/../kj/../fr_BE/../oc/../brx/../../perl5/overloading.pm