Linux ip-148-66-134-25.ip.secureserver.net 3.10.0-1160.119.1.el7.tuxcare.els10.x86_64 #1 SMP Fri Oct 11 21:40:41 UTC 2024 x86_64
Apache
: 148.66.134.25 | : 18.219.25.226
66 Domain
8.0.30
amvm
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
BLACK DEFEND!
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
CPAN /
[ HOME SHELL ]
Name
Size
Permission
Action
API
[ DIR ]
drwxr-xr-x
Exception
[ DIR ]
drwxr-xr-x
FTP
[ DIR ]
drwxr-xr-x
HTTP
[ DIR ]
drwxr-xr-x
Kwalify
[ DIR ]
drwxr-xr-x
LWP
[ DIR ]
drwxr-xr-x
Plugin
[ DIR ]
drwxr-xr-x
Admin.pm
7.61
KB
-r--r--r--
Author.pm
6.68
KB
-rw-r--r--
Bundle.pm
9.03
KB
-rw-r--r--
CacheMgr.pm
7.48
KB
-rw-r--r--
Complete.pm
5.85
KB
-rw-r--r--
Config.pm
9.38
KB
-rw-r--r--
Debug.pm
2.05
KB
-rw-r--r--
DeferredCode.pm
189
B
-rw-r--r--
Distribution.pm
145.09
KB
-rw-r--r--
Distroprefs.pm
10.84
KB
-rw-r--r--
Distrostatus.pm
972
B
-rw-r--r--
FTP.pm
41.19
KB
-rw-r--r--
FirstTime.pm
66.98
KB
-rw-r--r--
HandleConfig.pm
22.61
KB
-rw-r--r--
Index.pm
21.43
KB
-rw-r--r--
InfoObj.pm
6.75
KB
-rw-r--r--
Kwalify.pm
3.35
KB
-rw-r--r--
Mirrors.pm
14.55
KB
-rw-r--r--
Module.pm
21.52
KB
-rw-r--r--
Nox.pm
928
B
-rw-r--r--
Plugin.pm
3.14
KB
-r--r--r--
Prompt.pm
567
B
-rw-r--r--
Queue.pm
6.31
KB
-rw-r--r--
Shell.pm
68.45
KB
-rw-r--r--
Tarzip.pm
15.69
KB
-rw-r--r--
URL.pm
588
B
-rw-r--r--
Version.pm
4.21
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : Debug.pm
# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- package CPAN::Debug; use strict; use vars qw($VERSION); $VERSION = "5.5001"; # module is internal to CPAN.pm %CPAN::DEBUG = qw[ CPAN 1 Index 2 InfoObj 4 Author 8 Distribution 16 Bundle 32 Module 64 CacheMgr 128 Complete 256 FTP 512 Shell 1024 Eval 2048 HandleConfig 4096 Tarzip 8192 Version 16384 Queue 32768 FirstTime 65536 ]; $CPAN::DEBUG ||= 0; #-> sub CPAN::Debug::debug ; sub debug { my($self,$arg) = @_; my @caller; my $i = 0; while () { my(@c) = (caller($i))[0 .. ($i ? 3 : 2)]; last unless defined $c[0]; push @caller, \@c; for (0,3) { last if $_ > $#c; $c[$_] =~ s/.*:://; } for (1) { $c[$_] =~ s|.*/||; } last if ++$i>=3; } pop @caller; if ($CPAN::DEBUG{$caller[0][0]} & $CPAN::DEBUG) { if ($arg and ref $arg) { eval { require Data::Dumper }; if ($@) { $CPAN::Frontend->myprint("Debug(\n" . $arg->as_string . ")\n"); } else { $CPAN::Frontend->myprint("Debug(\n" . Data::Dumper::Dumper($arg) . ")\n"); } } else { my $outer = ""; local $" = ","; if (@caller>1) { $outer = ",[@{$caller[1]}]"; } $CPAN::Frontend->myprint("Debug(@{$caller[0]}$outer): $arg\n"); } } } 1; __END__ =head1 NAME CPAN::Debug - internal debugging for CPAN.pm =head1 LICENSE This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut
Close
