| line |
true |
false |
branch |
|
113
|
0 |
10 |
if ($CPAN::Signal) |
|
118
|
0 |
10 |
if ($CPAN::Shell::autoload_recursion > 1) |
|
124
|
0 |
10 |
if ($l =~ /^w/) { } |
|
126
|
0 |
0 |
if ($CPAN::META->has_inst('CPAN::WAIT')) { } |
|
149
|
0 |
0 |
if (defined $about) { } |
|
151
|
0 |
0 |
if (exists $CPAN::Shell::Help->{$about}) { } |
|
152
|
0 |
0 |
if (ref $CPAN::Shell::Help->{$about}) |
|
200
|
0 |
0 |
unless /=/ |
|
212
|
0 |
0 |
if ($s =~ m[[\*\?/]]) { } |
|
213
|
0 |
0 |
if ($CPAN::META->has_inst('Text::Glob')) { } |
|
214
|
0 |
0 |
if (my($au, $pathglob) = $s =~ m[(.*?)/(.*)]) { } |
|
216
|
0 |
0 |
if $CPAN::DEBUG |
|
234
|
0 |
0 |
unless (m[^[A-Z0-9\-]+(/|$)]i) |
|
245
|
0 |
0 |
if ($a =~ m[(.*?)/(.*)]) { } |
|
248
|
0 |
0 |
unless $author = 'CPAN::Shell'->expand_by_method('CPAN::Author', ['id'], $a2) |
|
253
|
0 |
0 |
unless $author = 'CPAN::Shell'->expand_by_method('CPAN::Author', ['id'], $a) |
|
258
|
0 |
0 |
if ($silent) |
|
261
|
0 |
0 |
if ($alpha eq $last_alpha) { } |
|
270
|
0 |
0 |
if ($author->can($pragma)) |
|
274
|
0 |
0 |
if $CPAN::DEBUG |
|
280
|
0 |
0 |
if ($author->can($unpragma)) |
|
296
|
0 |
0 |
if $CPAN::DEBUG |
|
297
|
0 |
0 |
if ($dh = 'DirHandle'->new($bdir)) |
|
300
|
0 |
0 |
if $entry =~ /^\./ |
|
301
|
0 |
0 |
unless $entry =~ /^\w+(\.pm)?(?!\n)\Z/ |
|
302
|
0 |
0 |
if (-d 'File::Spec'->catdir($bdir, $entry)) { } |
|
305
|
0 |
0 |
unless $entry =~ s/\.pm(?!\n)\Z// |
|
317
|
0 |
0 |
if $CPAN::DEBUG |
|
330
|
0 |
0 |
if (m[(?:\w+/)*\w+\.pm$]) |
|
342
|
0 |
0 |
unless @args |
|
355
|
0 |
0 |
@result == 0 ? : |
|
|
0 |
0 |
@result == 1 ? : |
|
371
|
0 |
0 |
if ($o_type eq 'conf') { } |
|
|
0 |
0 |
elsif ($o_type eq 'debug') { } |
|
373
|
0 |
0 |
if @o_what |
|
374
|
0 |
0 |
if (not @o_what or $cfilter) { } |
|
377
|
0 |
0 |
if ($@) |
|
384
|
0 |
0 |
unless $k =~ /$qrfilter/ |
|
390
|
0 |
0 |
unless $k =~ /$qrfilter/ |
|
395
|
0 |
0 |
if ('CPAN::HandleConfig'->edit(@o_what)) { } |
|
403
|
0 |
0 |
if defined $o_what[0] and $o_what[0] =~ /help/i |
|
404
|
0 |
0 |
if (@o_what) { } |
|
407
|
0 |
0 |
if ($what =~ s/^-// and exists $CPAN::DEBUG{$what}) |
|
411
|
0 |
0 |
if (exists $CPAN::DEBUG{$what}) { } |
|
|
0 |
0 |
elsif ($what =~ /^\d/) { } |
|
|
0 |
0 |
elsif (lc $what eq 'all') { } |
|
424
|
0 |
0 |
unless lc $_ eq lc $what |
|
428
|
0 |
0 |
unless $known |
|
441
|
0 |
0 |
if ($CPAN::DEBUG) { } |
|
446
|
0 |
0 |
if $v & $CPAN::DEBUG |
|
465
|
0 |
0 |
if ($_[0] =~ /[Ss]ubroutine ([\w:]+) redefined/) |
|
471
|
0 |
0 |
if ($subr =~ /\bshell\b/i) |
|
493
|
0 |
0 |
unless my $attempts = $last->{'attempts'} |
|
495
|
0 |
0 |
if (@$attempts) { } |
|
497
|
0 |
0 |
if ($#$attempts > 0) |
|
499
|
0 |
0 |
unless my $url = $attempts->[$i]{'url'} |
|
506
|
0 |
0 |
unless $last->{'thesiteurl'} |
|
511
|
0 |
0 |
ref $last->{'thesiteurl'} ? : |
|
521
|
0 |
0 |
if $S{'ok'}{$url}{'dltime'} == 0 |
|
533
|
0 |
0 |
if ($S{'start'} and $S{'end'}) |
|
534
|
0 |
0 |
$S{'start'} ? : |
|
535
|
0 |
0 |
$S{'end'} ? : |
|
537
|
0 |
0 |
if ($res->{'ok'} and @{$res->{'ok'};}) |
|
543
|
0 |
0 |
if --$i <= 0 |
|
546
|
0 |
0 |
if ($res->{'no'} and @{$res->{'no'};}) |
|
551
|
0 |
0 |
if --$i <= 0 |
|
562
|
0 |
0 |
if $CPAN::DEBUG |
|
563
|
0 |
0 |
if ($command =~ /^cpan$/i) { } |
|
|
0 |
0 |
elsif ($command =~ /^index$/i) { } |
|
565
|
0 |
0 |
if $CPAN::iCwd |
|
568
|
0 |
0 |
unless exists $INC{$f} |
|
574
|
0 |
0 |
unless $self->_reload_this($f) |
|
579
|
0 |
0 |
if ($failed) |
|
580
|
0 |
0 |
$failed == 1 ? : |
|
596
|
0 |
0 |
if $CPAN::DEBUG |
|
597
|
0 |
0 |
unless $INC{$f} |
|
600
|
0 |
0 |
if $CPAN::DEBUG |
|
604
|
0 |
0 |
if -f $file |
|
607
|
0 |
0 |
if $CPAN::DEBUG |
|
609
|
0 |
0 |
unless ($file and -f $file) |
|
612
|
0 |
0 |
if (not 'CPAN'->has_inst('File::Basename')) { } |
|
619
|
0 |
0 |
if $CPAN::DEBUG |
|
620
|
0 |
0 |
unless (-f $file) |
|
629
|
0 |
0 |
if ($must_reload) { } |
|
630
|
0 |
0 |
unless my $fh = 'FileHandle'->new($file) |
|
638
|
0 |
0 |
if $CPAN::DEBUG |
|
643
|
0 |
0 |
if ($@) |
|
657
|
0 |
0 |
if (my $configpm = $INC{'CPAN/MyConfig.pm'}) { } |
|
679
|
0 |
0 |
if $file eq 'N/A' |
|
680
|
0 |
0 |
if $file =~ /^Contact Author/ |
|
682
|
0 |
0 |
if $dist->isa_perl |
|
683
|
0 |
0 |
unless $module->xs_file |
|
721
|
0 |
0 |
unless ($CPAN::META->has_inst($req)) |
|
727
|
0 |
0 |
unless (-f $indexfile) |
|
733
|
0 |
0 |
if ($arg =~ s[^/(.+)/$][$1]) |
|
738
|
0 |
0 |
unless $tag eq 'a' |
|
741
|
0 |
0 |
unless $href =~ s[^\.\./authors/id/./../][] |
|
742
|
0 |
0 |
if ($arg) { } |
|
743
|
0 |
0 |
if ($qrarg) { } |
|
744
|
0 |
0 |
if ($href =~ /$qrarg/) |
|
748
|
0 |
0 |
if ($href =~ /\Q$arg\E/) |
|
767
|
0 |
0 |
if (@{$stems{$_};} > 1) { } |
|
769
|
0 |
0 |
Sort::Versions::versioncmp($a, $b) > 0 ? : |
|
782
|
0 |
0 |
if (exists $contains->{$dist}) { } |
|
|
0 |
0 |
elsif (1 == keys %$contains) { } |
|
788
|
0 |
0 |
if ($module) { } |
|
806
|
0 |
0 |
unless ($CPAN::META->has_inst('CPAN::Reporter')) |
|
818
|
0 |
0 |
if @some |
|
824
|
0 |
0 |
unless (-f $yaml) |
|
830
|
0 |
0 |
unless ($id) |
|
835
|
0 |
0 |
unless ($do) |
|
839
|
0 |
0 |
unless ($do->{'build_dir'}) |
|
843
|
0 |
0 |
unless ($do->{'build_dir'} eq $b) |
|
850
|
0 |
0 |
unless @some |
|
853
|
0 |
0 |
if $_->{'make_test'} |
|
854
|
0 |
0 |
unless @some |
|
863
|
0 |
0 |
$d->can('pretty_id') ? : |
|
880
|
0 |
0 |
if $CPAN::DEBUG |
|
881
|
0 |
0 |
unless $what and $what =~ /^[aru]$/ |
|
884
|
0 |
0 |
unless @args |
|
891
|
0 |
0 |
if ($CPAN::DEBUG) |
|
897
|
0 |
0 |
if ($] < 5.008) { } |
|
908
|
0 |
0 |
unless $CPAN::Shell::b->[0] <=> $CPAN::Shell::a->[0] |
|
914
|
0 |
0 |
if ($CPAN::DEBUG) |
|
920
|
0 |
0 |
unless defined $file |
|
924
|
0 |
0 |
if $CPAN::DEBUG |
|
926
|
0 |
0 |
if $CPAN::Signal |
|
929
|
0 |
0 |
if ($inst_file) { } |
|
930
|
0 |
0 |
if ($what eq 'a') { } |
|
|
0 |
0 |
elsif ($what eq 'r') { } |
|
|
0 |
0 |
elsif ($what eq 'u') { } |
|
935
|
0 |
0 |
if ($have eq 'undef') { } |
|
|
0 |
0 |
elsif ('CPAN::Version'->vcmp($have, 0) == 0) { } |
|
942
|
0 |
0 |
unless 'CPAN::Version'->vgt($latest, $have) |
|
950
|
0 |
0 |
if ($what eq 'a') { } |
|
|
0 |
0 |
elsif ($what eq 'r') { } |
|
|
0 |
0 |
elsif ($what eq 'u') { } |
|
959
|
0 |
0 |
if $next_MODULE |
|
960
|
0 |
0 |
if ($@) |
|
961
|
0 |
0 |
defined $have ? : |
|
|
0 |
0 |
ref $have ? : |
|
|
0 |
0 |
ref $latest ? : |
|
976
|
0 |
0 |
if $CPAN::Signal |
|
978
|
0 |
0 |
if ($what eq 'a') { } |
|
|
0 |
0 |
elsif ($what eq 'r') { } |
|
|
0 |
0 |
elsif ($what eq 'u') { } |
|
982
|
0 |
0 |
if $seen{$file}++ |
|
985
|
0 |
0 |
if $seen{$file}++ |
|
986
|
0 |
0 |
if $file =~ /^Contact/ |
|
988
|
0 |
0 |
unless ($headerdone++) |
|
1002
|
0 |
0 |
if ($CPAN::Shell::COLOR_REGISTERED and $CPAN::META->has_inst('Term::ANSIColor') and $module->description) |
|
1021
|
0 |
0 |
unless (%need) |
|
1022
|
0 |
0 |
if ($what eq 'u') { } |
|
|
0 |
0 |
elsif ($what eq 'r') { } |
|
1028
|
0 |
0 |
if ($what eq 'r') |
|
1029
|
0 |
0 |
if ($version_zeroes) |
|
1030
|
0 |
0 |
$version_zeroes > 1 ? : |
|
1033
|
0 |
0 |
if ($CPAN::Config->{'show_zero_versions'}) { } |
|
1043
|
0 |
0 |
if ($version_undefs) |
|
1044
|
0 |
0 |
$version_undefs > 1 ? : |
|
1047
|
0 |
0 |
if ($CPAN::Config->{'show_unparsable_versions'}) { } |
|
1076
|
0 |
0 |
if ($only_id) { } |
|
|
0 |
0 |
elsif ($CPAN::Index::HAVE_REANIMATED) { } |
|
1085
|
0 |
0 |
if (@failed) { } |
|
|
0 |
0 |
elsif (not $only_id && $silent) { } |
|
1088
|
0 |
0 |
if ($debug) { } |
|
1096
|
0 |
0 |
unless $CPAN::Shell::a->[0] <=> $CPAN::Shell::b->[0] |
|
1121
|
0 |
0 |
unless exists $d->{$nosayer} |
|
1122
|
0 |
0 |
unless defined $d->{$nosayer} |
|
1126
|
0 |
0 |
UNIVERSAL::can($d->{$nosayer}, 'failed') ? : |
|
|
0 |
0 |
unless UNIVERSAL::can($d->{$nosayer}, 'failed') ? $d->{$nosayer}->failed : $d->{$nosayer} =~ /^NO/ |
|
1131
|
0 |
0 |
UNIVERSAL::can($d->{$nosayer}, 'commandid') ? : |
|
|
0 |
0 |
if $only_id and $only_id != (UNIVERSAL::can($d->{$nosayer}, 'commandid') ? $d->{$nosayer}->commandid : $CPAN::CurrentCommandId) |
|
1138
|
0 |
0 |
unless $failed |
|
1144
|
0 |
0 |
unless $d->{'mandatory'} |
|
1165
|
0 |
0 |
UNIVERSAL::can($d->{$failed}, 'failed') ? : |
|
1187
|
0 |
0 |
unless /VmSize:\s+(\d+)/ |
|
1199
|
0 |
0 |
unless substr($k, 0, 4) eq 'read' |
|
1217
|
0 |
0 |
if ($CPAN::META->{'is_tested'}{$b}) { } |
|
1230
|
0 |
0 |
unless $CPAN::Config_loaded++ |
|
1234
|
0 |
0 |
unless (-d $todir) |
|
1248
|
0 |
0 |
unless my($fh) = 'FileHandle'->new(">$to") |
|
1278
|
0 |
7 |
if $CPAN::DEBUG |
|
1280
|
0 |
7 |
if ($s =~ m[(?:\w+/)*\w+\.pm$]) |
|
1285
|
0 |
7 |
if ($module_as_path) { } |
|
|
0 |
7 |
elsif ($s =~ m[/] or substr($s, -1, 1) eq '.') { } |
|
|
0 |
7 |
elsif ($s =~ /^Bundle::/) { } |
|
1286
|
0 |
0 |
if ($module_as_path =~ /^Bundle::/) { } |
|
1290
|
0 |
0 |
if $CPAN::META->exists('CPAN::Module', $module_as_path) |
|
1304
|
0 |
7 |
if $CPAN::META->exists('CPAN::Module', $s) |
|
1314
|
0 |
4 |
if $CPAN::DEBUG |
|
1318
|
3 |
1 |
unless $class->can($meth) |
|
1331
|
0 |
4 |
if ($arg =~ m[^/(.*)/$]) |
|
1339
|
0 |
0 |
defined $regex ? : |
|
|
0 |
0 |
defined $command ? : |
|
|
0 |
4 |
if $CPAN::DEBUG |
|
1344
|
0 |
4 |
if (defined $regex) { } |
|
|
0 |
4 |
elsif ($command) { } |
|
1345
|
0 |
0 |
if (CPAN::_sqlite_running()) |
|
1352
|
0 |
0 |
unless ($obj and UNIVERSAL::can($obj, 'id') and $obj->id) |
|
1355
|
0 |
0 |
if $CPAN::DEBUG |
|
1364
|
0 |
0 |
if ($@) { } |
|
|
0 |
0 |
elsif ($match) { } |
|
1375
|
0 |
0 |
unless $CPAN::Shell::ADVANCED_QUERY |
|
1388
|
0 |
0 |
unless my $lhs = $self->$method |
|
1389
|
0 |
0 |
if ($matchcrit) { } |
|
1390
|
0 |
0 |
if $lhs =~ /$matchcrit/ |
|
1392
|
0 |
0 |
if $lhs eq $criterion |
|
1397
|
0 |
4 |
if ($class eq 'CPAN::Bundle') { } |
|
|
1 |
3 |
elsif ($class eq 'CPAN::Distribution') { } |
|
1404
|
4 |
0 |
if ($CPAN::META->exists($class, $xarg)) { } |
|
|
0 |
0 |
elsif ($CPAN::META->exists($class, $arg)) { } |
|
1415
|
0 |
4 |
if ($CPAN::DEBUG) |
|
1422
|
0 |
4 |
wantarray ? : |
|
1429
|
0 |
0 |
unless @args |
|
1436
|
0 |
0 |
@result == 0 ? : |
|
|
0 |
0 |
@result == 1 ? : |
|
1448
|
0 |
0 |
if $installation_report_fh |
|
1449
|
0 |
0 |
if ($CPAN::META->has_usable('File::Temp')) |
|
1458
|
0 |
0 |
unless ($installation_report_fh) |
|
1459
|
0 |
0 |
unless $previously_noticed++ |
|
1479
|
0 |
0 |
if ($colorize_output and $^O eq 'MSWin32' and not $CPAN::META->has_inst('Win32::Console::ANSI')) |
|
1480
|
0 |
0 |
unless ($print_ornamented_have_warned++) |
|
1487
|
0 |
165 |
if ($colorize_output and not $CPAN::META->has_inst('Term::ANSIColor')) |
|
1488
|
0 |
0 |
unless ($print_ornamented_have_warned++) |
|
1503
|
0 |
165 |
unless defined $what |
|
1506
|
0 |
165 |
if ($CPAN::Be_Silent) |
|
1512
|
0 |
165 |
if ($CPAN::Config->{'term_is_latin'}) |
|
1518
|
0 |
165 |
if ($self->colorize_output) { } |
|
1519
|
0 |
0 |
if ($CPAN::DEBUG and $swhat =~ /^Debug\(/) |
|
1524
|
0 |
0 |
if ($@) |
|
1533
|
0 |
0 |
if $swhat =~ s/([\r\n]+)\z// |
|
1560
|
0 |
0 |
unless $already_printed{$what}++ |
|
1566
|
2 |
5 |
unless $CPAN::Config_loaded++ |
|
1567
|
6 |
1 |
if (not $CPAN::Config->{$vname} or $CPAN::Config->{$vname} =~ /^v/) |
|
1591
|
0 |
0 |
unless $already_warned{$what}++ |
|
1611
|
0 |
0 |
if ('CPAN::Shell'->colorize_output) |
|
1617
|
0 |
0 |
if ('CPAN::Shell'->colorize_output) |
|
1630
|
0 |
0 |
if length $l > $longest |
|
1632
|
0 |
0 |
if $longest > 62 |
|
1634
|
0 |
0 |
if ($l =~ /^\s*$/) |
|
1639
|
0 |
0 |
if (length $l < 66) |
|
1650
|
0 |
0 |
if $ENV{'AUTOMATED_TESTING'} or not -t STDOUT |
|
1652
|
0 |
0 |
if ('CPAN'->has_inst('Time::HiRes')) { } |
|
1655
|
0 |
0 |
$sleep < 1 ? : |
|
1661
|
0 |
0 |
if -t STDOUT |
|
1679
|
0 |
0 |
unless $meth = shift @some |
|
1684
|
0 |
0 |
if $CPAN::DEBUG |
|
1708
|
0 |
0 |
if (ref $s) { } |
|
|
0 |
0 |
elsif ($s =~ /[\$\@\%]/) { } |
|
|
0 |
0 |
elsif ($s =~ m[^/]) { } |
|
|
0 |
0 |
elsif ($meth eq 'ls') { } |
|
1709
|
0 |
0 |
if $CPAN::DEBUG |
|
1713
|
0 |
0 |
if (substr($s, -1, 1) eq '.') { } |
|
1718
|
0 |
0 |
if (@obj = $self->expand($class, $s)) |
|
1722
|
0 |
0 |
if (@obj) |
|
1723
|
0 |
0 |
if (1 == @obj) { } |
|
1737
|
0 |
0 |
if $CPAN::DEBUG |
|
1740
|
0 |
0 |
if (do {
ref $obj
}) { } |
|
|
0 |
0 |
elsif ($CPAN::META->exists('CPAN::Author', uc $s)) { } |
|
|
0 |
0 |
elsif ($s =~ /[\$\@\%]/ and $meth eq 'dump') { } |
|
1742
|
0 |
0 |
if ($meth =~ /^($needs_recursion_protection)$/) |
|
1745
|
0 |
0 |
if $CPAN::DEBUG |
|
1747
|
0 |
0 |
if ($@) |
|
1748
|
0 |
0 |
if (ref $@ and $@->isa('CPAN::Exception::RecursiveDependency')) { } |
|
1764
|
0 |
0 |
if ($meth =~ /^(dump|ls|reports)$/) { } |
|
1800
|
0 |
0 |
unless ($obj) |
|
1812
|
0 |
0 |
if ($type eq 'CPAN::Distribution' or $type eq 'CPAN::Bundle') { } |
|
|
0 |
0 |
elsif ($type eq 'CPAN::Module') { } |
|
1817
|
0 |
0 |
if (my $d = $obj->distribution) { } |
|
|
0 |
0 |
elsif ($optional) { } |
|
1834
|
0 |
0 |
if $CPAN::DEBUG |
|
1837
|
0 |
0 |
if ($obj->{'reqtype'}) { } |
|
1838
|
0 |
0 |
if ($obj->{'reqtype'} eq 'b' and $reqtype =~ /^[rc]$/) |
|
1840
|
0 |
0 |
UNIVERSAL::can($obj->{'install'}, 'failed') ? : |
|
|
0 |
0 |
if (exists $obj->{'install'} and UNIVERSAL::can($obj->{'install'}, 'failed') ? $obj->{'install'}->failed : $obj->{'install'} =~ /^NO/) |
|
1859
|
0 |
0 |
if ($pragma and $obj->can($pragma)) |
|
1865
|
0 |
0 |
if (UNIVERSAL::can($obj, 'called_for')) |
|
1868
|
0 |
0 |
if $CPAN::DEBUG |
|
1872
|
0 |
0 |
if ($meth =~ /^(report)$/) { } |
|
|
0 |
0 |
elsif (not UNIVERSAL::can($obj, $meth)) { } |
|
1877
|
0 |
0 |
if (do {
$CPAN::META->has_inst('YAML::Syck')
}) { } |
|
|
0 |
0 |
elsif ($CPAN::META->has_inst('YAML')) { } |
|
|
0 |
0 |
elsif ($CPAN::META->has_inst('Data::Dumper')) { } |
|
1888
|
0 |
0 |
if $CPAN::DEBUG |
|
1892
|
0 |
0 |
if ($meth eq 'make' and $obj->{'reqtype'} eq 'b') |
|
1896
|
0 |
0 |
if ($obj->$upgraded_meth) { } |
|
1898
|
0 |
0 |
if $CPAN::DEBUG |
|
1900
|
0 |
0 |
if $CPAN::DEBUG |
|
1907
|
0 |
0 |
if ($obj->can($unpragma)) |
|
1914
|
0 |
0 |
if ($CPAN::Config->{'halt_on_failure'} and $obj->{'mandatory'} and &CPAN::Distrostatus::something_has_just_failed() and $self->mandatory_dist_failed) |
|
1925
|
0 |
0 |
if ($meth =~ /^($needs_recursion_protection)$/) |
|
1935
|
0 |
0 |
if ($CPAN::META->has_inst('XML::LibXML')) { } |
|
1938
|
0 |
0 |
unless ($CPAN::META->has_usable('LWP')) |
|
1944
|
0 |
0 |
if ($@) |
|
1948
|
0 |
0 |
unless ($resp->is_success) |
|
1960
|
0 |
0 |
if ($url =~ /winnipeg/) { } |
|
|
0 |
0 |
elsif ($url =~ /search.*uploads.rdf/) { } |
|
1990
|
0 |
0 |
unless my $author = uc $1 |
|
1994
|
0 |
0 |
if ++$i >= 6 |
|
1995
|
0 |
0 |
if (my(@ret) = $self->globls("$distro*")) |
|
1998
|
0 |
0 |
if (@ret) |
|
2006
|
0 |
0 |
if $distro =~ /\*/ |
|
2009
|
0 |
0 |
if $finish_eitem |
|
2024
|
0 |
0 |
if $distro =~ m[/Bundle-] |
|
2032
|
0 |
0 |
if ($skip) |