OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
perl
/
5.26.1
/
CPAN
Server IP: 139.59.38.164
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📁
API
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
Author.pm
6.68 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
Bundle.pm
9.6 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
CacheMgr.pm
7.48 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
Complete.pm
5.88 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
Debug.pm
2.05 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
DeferredCode.pm
189 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📄
Distribution.pm
161.9 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
Distroprefs.pm
11.71 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
Distrostatus.pm
972 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📁
Exception
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📁
FTP
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
FTP.pm
41.63 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
FirstTime.pm
70.16 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
HTTP
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
HandleConfig.pm
22.75 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
Index.pm
21.7 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
InfoObj.pm
6.75 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
Kwalify
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
Kwalify.pm
3.35 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
LWP
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📁
Meta
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
Meta.pm
29.56 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
Mirrors.pm
16.3 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
Module.pm
21.87 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
Nox.pm
953 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📁
Plugin
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
Plugin.pm
3.14 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
Prompt.pm
567 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📄
Queue.pm
6.78 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
Shell.pm
71.88 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
Tarzip.pm
16.32 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
URL.pm
588 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📄
Version.pm
4.29 KB
05/23/2023 05:17:19 PM
rw-r--r--
Editing: Debug.pm
Close
# -*- 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