File Manager

X7ROOT File Manager

Current Path: /usr/share/perl5/vendor_perl/CPAN

usr / share / perl5 / vendor_perl / CPAN /

?? ..
?? API
?? Admin.pm(7.6 KB)
?? Author.pm(6.68 KB)
?? Bundle.pm(9.6 KB)
?? CacheMgr.pm(7.48 KB)
?? Complete.pm(5.88 KB)
?? Debug.pm(2.05 KB)
?? DeferredCode.pm(189 B)
?? Distribution.pm(159.97 KB)
?? Distroprefs.pm(11.71 KB)
?? Distrostatus.pm(972 B)
?? Exception
?? FTP
?? FTP.pm(41.63 KB)
?? FirstTime.pm(70.29 KB)
?? HTTP
?? HandleConfig.pm(22.75 KB)
?? Index.pm(21.7 KB)
?? InfoObj.pm(6.75 KB)
?? Kwalify
?? Kwalify.pm(3.35 KB)
?? LWP
?? Meta
?? Meta.pm(29.56 KB)
?? Mirrors.pm(16.3 KB)
?? Module.pm(21.87 KB)
?? Nox.pm(953 B)
?? Plugin
?? Plugin.pm(3.14 KB)
?? Prompt.pm(567 B)
?? Queue.pm(6.78 KB)
?? Shell.pm(71.88 KB)
?? Tarzip.pm(16.32 KB)
?? URL.pm(588 B)
?? Version.pm(4.29 KB)

Editing: 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");
        }
    }
}

__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

X7ROOT File Manager

Editing: Debug.pm

Upload File

Create Folder