# -*- 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
Name | Type | Size | Permission | Actions |
---|---|---|---|---|
API | Folder | 0755 |
|
|
Exception | Folder | 0755 |
|
|
FTP | Folder | 0755 |
|
|
HTTP | Folder | 0755 |
|
|
Kwalify | Folder | 0755 |
|
|
LWP | Folder | 0755 |
|
|
Plugin | Folder | 0755 |
|
|
Admin.pm | File | 7.61 KB | 0444 |
|
Author.pm | File | 6.68 KB | 0644 |
|
Bundle.pm | File | 9.03 KB | 0644 |
|
CacheMgr.pm | File | 7.48 KB | 0644 |
|
Complete.pm | File | 5.85 KB | 0644 |
|
Config.pm | File | 9.81 KB | 0644 |
|
Config.pm.1495584755 | File | 10.08 KB | 0644 |
|
Config.pm.1496275908 | File | 10.08 KB | 0644 |
|
Config.pm.1498608719 | File | 10.07 KB | 0644 |
|
Config.pm.1499904706 | File | 10.04 KB | 0644 |
|
Config.pm.1499991045 | File | 10.08 KB | 0644 |
|
Config.pm.1500077464 | File | 10.08 KB | 0644 |
|
Config.pm.1500336657 | File | 10.08 KB | 0644 |
|
Config.pm.1501200686 | File | 10.08 KB | 0644 |
|
Config.pm.1504224690 | File | 10.08 KB | 0644 |
|
Config.pm.1505261476 | File | 9.97 KB | 0644 |
|
Config.pm.1505779932 | File | 9.93 KB | 0644 |
|
Config.pm.1506557632 | File | 9.93 KB | 0644 |
|
Config.pm.1507767121 | File | 9.84 KB | 0644 |
|
Config.pm.1508285482 | File | 9.87 KB | 0644 |
|
Config.pm.1508803898 | File | 9.87 KB | 0644 |
|
Config.pm.1509495108 | File | 9.81 KB | 0644 |
|
Config.pm.1510272683 | File | 9.77 KB | 0644 |
|
Config.pm.1510963855 | File | 9.86 KB | 0644 |
|
Config.pm.1511223072 | File | 9.85 KB | 0644 |
|
Config.pm.1513037604 | File | 9.86 KB | 0644 |
|
Config.pm.1513642246 | File | 9.9 KB | 0644 |
|
Config.pm.1513901506 | File | 9.9 KB | 0644 |
|
Config.pm.1515456673 | File | 9.9 KB | 0644 |
|
Config.pm.1516061466 | File | 9.86 KB | 0644 |
|
Config.pm.1516234390 | File | 9.86 KB | 0644 |
|
Config.pm.1516666262 | File | 9.82 KB | 0644 |
|
Config.pm.1517443921 | File | 9.82 KB | 0644 |
|
Config.pm.1519344677 | File | 9.82 KB | 0644 |
|
Config.pm.1520986232 | File | 9.82 KB | 0644 |
|
Config.pm.1521504678 | File | 9.84 KB | 0644 |
|
Config.pm.1522714247 | File | 9.31 KB | 0644 |
|
Config.pm.1524096686 | File | 9.78 KB | 0644 |
|
Config.pm.1525738266 | File | 9.87 KB | 0644 |
|
Config.pm.1526947858 | File | 9.87 KB | 0644 |
|
Debug.pm | File | 2.05 KB | 0644 |
|
DeferredCode.pm | File | 189 B | 0644 |
|
Distribution.pm | File | 145.09 KB | 0644 |
|
Distroprefs.pm | File | 10.84 KB | 0644 |
|
Distrostatus.pm | File | 972 B | 0644 |
|
FTP.pm | File | 41.19 KB | 0644 |
|
FirstTime.pm | File | 66.98 KB | 0644 |
|
HandleConfig.pm | File | 22.61 KB | 0644 |
|
Index.pm | File | 21.43 KB | 0644 |
|
InfoObj.pm | File | 6.75 KB | 0644 |
|
Kwalify.pm | File | 3.35 KB | 0644 |
|
Mirrors.pm | File | 14.55 KB | 0644 |
|
Module.pm | File | 21.52 KB | 0644 |
|
Nox.pm | File | 928 B | 0644 |
|
Plugin.pm | File | 3.14 KB | 0444 |
|
Prompt.pm | File | 567 B | 0644 |
|
Queue.pm | File | 6.31 KB | 0644 |
|
Shell.pm | File | 68.45 KB | 0644 |
|
Tarzip.pm | File | 15.69 KB | 0644 |
|
URL.pm | File | 588 B | 0644 |
|
Version.pm | File | 4.21 KB | 0644 |
|