| line |
true |
false |
branch |
|
385
|
1 |
3 |
if $ARGV[0] eq 'install' and @ARGV > 1 |
|
395
|
1 |
0 |
if (0 == @ARGV) { } |
|
408
|
0 |
0 |
if ($$options{'j'}) { } |
|
423
|
0 |
0 |
if $$options{'T'} |
|
427
|
0 |
0 |
unless exists $$options{$o} |
|
432
|
0 |
0 |
if ($$options{'o'}) |
|
454
|
0 |
0 |
unless $option_count |
|
462
|
0 |
0 |
unless defined $ENV{'NONINTERACTIVE_TESTING'} |
|
463
|
0 |
0 |
unless defined $ENV{'PERL_MM_USE_DEFAULT'} |
|
501
|
0 |
0 |
unless $$options{$option} |
|
507
|
0 |
0 |
unless (ref $sub eq ref sub {
}
) |
|
513
|
0 |
0 |
if @ARGV and not $takes_args |
|
537
|
2 |
0 |
unless ($log4perl_loaded) |
|
570
|
0 |
0 |
if $option eq 'f' or $option eq 'T' |
|
571
|
0 |
0 |
unless $$options{$option} |
|
579
|
0 |
0 |
if (not $switch and @$args) { } |
|
|
0 |
0 |
elsif (not $switch || @$args) { } |
|
|
0 |
0 |
elsif ($switch and not @$args) { } |
|
586
|
0 |
0 |
unless 'CPAN::Shell'->can($method) |
|
590
|
0 |
0 |
if ($$options{'f'}) { } |
|
|
0 |
0 |
elsif ($$options{'T'}) { } |
|
604
|
0 |
0 |
if $error |
|
608
|
0 |
0 |
if (@errors) { } |
|
673
|
0 |
29 |
if ($] < 5.008) { } |
|
688
|
9 |
305 |
if ($lines[-1] =~ /$regex/) |
|
712
|
0 |
9 |
if $last_line =~ /\b(?:Cannot\s+install)\b/i |
|
714
|
4 |
5 |
unless $result |
|
723
|
5 |
4 |
unless $result |
|
728
|
0 |
0 |
if _cpanpm_output_indicates_failure() or _cpanpm_output_indicates_success() |
|
778
|
0 |
0 |
if ($$CPAN::Config{'connect_to_internet_ok'}) |
|
780
|
0 |
0 |
unless eval {
do {
'CPAN::FTP'->localize('MIRRORED.BY', 'File::Spec'->catfile($$CPAN::Config{'keep_source_where'}, 'MIRRORED.BY'), 3, 1)
}
} |
|
815
|
0 |
0 |
if (@custom_dirs) |
|
836
|
0 |
0 |
unless @{$$tuple[1];} |
|
862
|
0 |
3 |
unless _home_of($1 || $>) |
|
871
|
0 |
0 |
unless my $ent = User::pwent::getpw($user) |
|
897
|
0 |
0 |
unless _is_pingable_scheme($obj) |
|
918
|
0 |
0 |
if (-e $local_path) { } |
|
933
|
0 |
0 |
unless eval {
do {
$mirror->can('http')
}
} |
|
946
|
0 |
0 |
-w $dir ? : |
|
956
|
0 |
0 |
$rtt ? : |
|
967
|
0 |
0 |
ref $mirror ? : |
|
972
|
0 |
0 |
if ($url->scheme eq 'file') |
|
978
|
0 |
0 |
unless $port |
|
980
|
0 |
0 |
if ($ping->can('port_number')) { } |
|
987
|
0 |
0 |
if $ping->can('hires') |
|
989
|
0 |
0 |
$alive ? : |
|
997
|
0 |
0 |
unless ($rc) |
|
1009
|
0 |
0 |
unless ($_[0]) |
|
1054
|
0 |
0 |
unless -e $file |
|
1064
|
0 |
0 |
unless $rc |
|
1125
|
0 |
0 |
unless $loaded |
|
1136
|
0 |
0 |
if LWP::Simple::getstore($fetch_path, $store_path) |
|
1147
|
0 |
0 |
unless $loaded |
|
1167
|
0 |
0 |
unless -e $git |
|
1168
|
0 |
0 |
unless -x $git |
|
1192
|
0 |
0 |
unless eval {
do {
$module->inst_file
}
} |
|
1209
|
0 |
0 |
unless eval 'require LWP::Simple; require URI; 1' |
|
1215
|
0 |
0 |
if defined $content |
|
1237
|
0 |
0 |
unless ($module) |
|
1245
|
0 |
0 |
unless $module->userid |
|
1263
|
0 |
0 |
unless $module->userid |
|
1266
|
0 |
0 |
$module->description ? : |
|
|
0 |
0 |
$module->cpan_file ? : |
|
|
0 |
0 |
$module->inst_file ? : |
|
|
0 |
0 |
$module->inst_version ? : |
|
|
0 |
0 |
$module->uptodate ? : |
|
1291
|
0 |
0 |
unless $module->inst_file |
|
1292
|
0 |
0 |
if $module->uptodate |
|
1293
|
0 |
0 |
$module->inst_version ? : |
|
1312
|
0 |
0 |
unless exists $hash{lc $module->userid} |
|
1339
|
0 |
0 |
unless defined $module_name |
|
1354
|
0 |
0 |
if /\A\w+\.pm\z/ |
|
1367
|
0 |
0 |
unless open FILE, "<$file" |
|
1374
|
0 |
0 |
/^=cut/ ? : |
|
|
0 |
0 |
/^=(?!cut)/ ? : |
|
1375
|
0 |
0 |
if $in_pod or /^\s*#/ |
|
1377
|
0 |
0 |
unless /([\$*])(([\w\:\']*)\bVERSION)\b.*\=/ |
|
1385
|
0 |
0 |
unless defined $version |
|
1417
|
0 |
0 |
if length $path < length $inc |