1 # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
6 $VERSION = sprintf "%.6f", substr(q$Rev: 2212 $,4)/1000000 + 5.4;
7 # module is internal to CPAN.pm
31 #-> sub CPAN::Debug::debug ;
38 my(@c) = (caller($i))[0 .. ($i ? 3 : 2)];
39 last unless defined $c[0];
51 if ($CPAN::DEBUG{$caller[0][0]} & $CPAN::DEBUG) {
52 if ($arg and ref $arg) {
53 eval { require Data::Dumper };
55 $CPAN::Frontend->myprint($arg->as_string);
57 $CPAN::Frontend->myprint(Data::Dumper::Dumper($arg));
63 $outer = ",[@{$caller[1]}]";
65 $CPAN::Frontend->myprint("Debug(@{$caller[0]}$outer): $arg\n");
76 This program is free software; you can redistribute it and/or
77 modify it under the same terms as Perl itself.