| line |
true |
false |
branch |
|
326
|
1 |
3 |
if $ARGV[0] eq 'install' and @ARGV > 1 |
|
336
|
1 |
0 |
if (0 == @ARGV) { } |
|
349
|
0 |
0 |
if ($$options{'j'}) { } |
|
365
|
0 |
0 |
unless exists $$options{$o} |
|
370
|
0 |
0 |
if ($$options{'o'}) |
|
388
|
0 |
0 |
unless $option_count |
|
425
|
0 |
0 |
unless $$options{$option} |
|
431
|
0 |
0 |
unless (ref $sub eq ref sub {
}
) |
|
437
|
0 |
0 |
if @ARGV and not $takes_args |
|
460
|
1 |
0 |
unless ($log4perl_loaded) |
|
492
|
0 |
0 |
if $option eq 'f' |
|
493
|
0 |
0 |
unless $$options{$option} |
|
501
|
0 |
0 |
if (not $switch and @$args) { } |
|
|
0 |
0 |
elsif (not $switch || @$args) { } |
|
|
0 |
0 |
elsif ($switch and not @$args) { } |
|
508
|
0 |
0 |
unless 'CPAN::Shell'->can($method) |
|
512
|
0 |
0 |
if ($$options{'f'}) { } |
|
527
|
0 |
0 |
$errors ? : |
|
588
|
9 |
131 |
if ($lines[-1] =~ /$regex/) |
|
611
|
4 |
5 |
unless $result |
|
620
|
5 |
4 |
unless $result |
|
625
|
0 |
0 |
if _cpanpm_output_indicates_failure() or _cpanpm_output_indicates_success() |
|
675
|
0 |
0 |
if ($$CPAN::Config{'connect_to_internet_ok'}) |
|
677
|
0 |
0 |
unless eval {
do {
'CPAN::FTP'->localize('MIRRORED.BY', 'File::Spec'->catfile($$CPAN::Config{'keep_source_where'}, 'MIRRORED.BY'), 3, 1)
}
} |
|
712
|
0 |
0 |
if (@custom_dirs) |
|
733
|
0 |
0 |
unless @{$$tuple[1];} |
|
758
|
0 |
0 |
unless _home_of($1 || $>) |
|
767
|
0 |
0 |
unless my $ent = User::pwent::getpw($user) |
|
793
|
0 |
0 |
unless _is_pingable_scheme($obj) |
|
815
|
0 |
0 |
if (-e $local_path) { } |
|
831
|
0 |
0 |
unless eval {
do {
$mirror->can('http')
}
} |
|
841
|
0 |
0 |
-w $dir ? : |
|
852
|
0 |
0 |
$rtt ? : |
|
861
|
0 |
0 |
ref $mirror ? : |
|
866
|
0 |
0 |
if ($url->scheme eq 'file') |
|
872
|
0 |
0 |
unless $port |
|
874
|
0 |
0 |
if ($ping->can('port_number')) { } |
|
881
|
0 |
0 |
if $ping->can('hires') |
|
883
|
0 |
0 |
$alive ? : |
|
891
|
0 |
0 |
unless ($rc) |
|
935
|
0 |
0 |
unless -e $file |
|
945
|
0 |
0 |
unless $rc |
|
1005
|
0 |
0 |
unless $loaded |
|
1016
|
0 |
0 |
if LWP::Simple::getstore($fetch_path, $store_path) |
|
1027
|
0 |
0 |
unless $loaded |
|
1047
|
0 |
0 |
unless -e $git |
|
1048
|
0 |
0 |
unless -x $git |
|
1072
|
0 |
0 |
unless eval {
do {
$module->inst_file
}
} |
|
1089
|
0 |
0 |
unless eval 'require LWP::Simple; require URI; 1' |
|
1095
|
0 |
0 |
if defined $content |
|
1117
|
0 |
0 |
unless ($module) |
|
1125
|
0 |
0 |
unless $module->userid |
|
1143
|
0 |
0 |
unless $module->userid |
|
1146
|
0 |
0 |
$module->description ? : |
|
|
0 |
0 |
$module->uptodate ? : |
|
1171
|
0 |
0 |
unless $module->inst_file |
|
1172
|
0 |
0 |
if $module->uptodate |
|
1173
|
0 |
0 |
$module->inst_version ? : |
|
1192
|
0 |
0 |
unless exists $hash{lc $module->userid} |
|
1219
|
0 |
0 |
unless defined $module_name |
|
1234
|
0 |
0 |
if /\A\w+\.pm\z/ |
|
1247
|
0 |
0 |
unless open FILE, "<$file" |
|
1254
|
0 |
0 |
/^=cut/ ? : |
|
|
0 |
0 |
/^=(?!cut)/ ? : |
|
1255
|
0 |
0 |
if $in_pod or /^\s*#/ |
|
1257
|
0 |
0 |
unless /([\$*])(([\w\:\']*)\bVERSION)\b.*\=/ |
|
1265
|
0 |
0 |
unless defined $version |
|
1295
|
0 |
0 |
if length $path < length $inc |