ACIL FM

Nama	Ukuran	Aksi
API	-	Open
Exception	-	Open
FTP	-	Open
HTTP	-	Open
Kwalify	-	Open
LWP	-	Open
Meta	-	Open
Plugin	-	Open
Admin.pm	7.61 MB	View DL Edit
Author.pm	6.68 MB	View DL Edit
Bundle.pm	9.91 MB	View DL Edit
CacheMgr.pm	7.48 MB	View DL Edit
Complete.pm	5.88 MB	View DL Edit
Debug.pm	2.05 MB	View DL Edit
DeferredCode.pm	189 B	View DL Edit
Distribution.pm	178.96 MB	View DL Edit
Distroprefs.pm	11.71 MB	View DL Edit
Distrostatus.pm	972 B	View DL Edit
FirstTime.pm	73.02 MB	View DL Edit
FTP.pm	48.68 MB	View DL Edit
HandleConfig.pm	23.65 MB	View DL Edit
Index.pm	21.71 MB	View DL Edit
InfoObj.pm	6.75 MB	View DL Edit
Kwalify.pm	3.35 MB	View DL Edit
Mirrors.pm	17.82 MB	View DL Edit
Module.pm	21.87 MB	View DL Edit
Nox.pm	953 B	View DL Edit
Plugin.pm	3.14 MB	View DL Edit
Prompt.pm	567 B	View DL Edit
Queue.pm	6.96 MB	View DL Edit
Shell.pm	71.96 MB	View DL Edit
Tarzip.pm	16.25 MB	View DL Edit
URL.pm	588 B	View DL Edit
Version.pm	4.29 MB	View DL Edit

Edit file: /usr/local/share/perl5/5.32/CPAN/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

Batal