Branch Coverage

blib/lib/App/Cpan.pm
Criterion Covered Total %
branch 13 182 7.1


line true false branch
404 1 3 if $ARGV[0] eq 'install' and @ARGV > 1
414 1 0 if (0 == @ARGV) { }
427 0 0 if ($options->{'j'}) { }
442 0 0 if $options->{'T'}
446 0 0 unless exists $options->{$o}
451 0 0 if ($options->{'o'})
473 0 0 unless $option_count
481 0 0 unless defined $ENV{'NONINTERACTIVE_TESTING'}
482 0 0 unless defined $ENV{'PERL_MM_USE_DEFAULT'}
520 0 0 unless $options->{$option}
526 0 0 unless (ref $sub eq ref sub { } )
532 0 0 if @ARGV and not $takes_args
556 2 0 unless ($log4perl_loaded)
589 0 0 if $option eq 'f' or $option eq 'T'
590 0 0 unless $options->{$option}
598 0 0 if (not $switch and @$args) { }
0 0 elsif (not $switch || @$args) { }
0 0 elsif ($switch and not @$args) { }
605 0 0 unless 'CPAN::Shell'->can($method)
609 0 0 if ($options->{'f'}) { }
0 0 elsif ($options->{'T'}) { }
620 0 0 unless (my $module = _expand_module($arg))
629 0 0 if $error
633 0 0 if (@errors) { }
698 0 29 if ($] < 5.008) { }
713 9 305 if ($lines[-1] =~ /$regex/)
737 0 9 if $last_line =~ /\b(?:Cannot\s+install)\b/i
739 4 5 unless $result
748 5 4 unless $result
753 0 0 if _cpanpm_output_indicates_failure() or _cpanpm_output_indicates_success()
803 0 0 if ($CPAN::Config->{'connect_to_internet_ok'})
805 0 0 unless eval { do { 'CPAN::FTP'->localize('MIRRORED.BY', 'File::Spec'->catfile($CPAN::Config->{'keep_source_where'}, 'MIRRORED.BY'), 3, 1) } }
839 0 0 if (@custom_dirs)
860 0 0 unless @{$tuple->[1];}
886 0 3 unless _home_of($1 || $>)
895 0 0 unless my $ent = User::pwent::getpw($user)
921 0 0 unless _is_pingable_scheme($obj)
940 0 0 if (-e $local_path) { }
960 0 0 unless eval { do { $mirror->can('http') } }
973 0 0 -w $dir ? :
983 0 0 $rtt ? :
994 0 0 ref $mirror ? :
999 0 0 if ($url->scheme eq 'file')
1005 0 0 unless $port
1007 0 0 if ($ping->can('port_number')) { }
1014 0 0 if $ping->can('hires')
1016 0 0 $alive ? :
1024 0 0 unless ($rc)
1036 0 0 unless ($_[0])
1090 0 0 unless -e $file
1100 0 0 unless $rc
1144 0 0 unless my $module = _expand_module($arg)
1164 0 0 unless $loaded
1175 0 0 if LWP::Simple::getstore($fetch_path, $store_path)
1186 0 0 unless $loaded
1204 0 0 unless -e $git
1205 0 0 unless -x $git
1226 0 0 unless my $module = _expand_module($arg)
1230 0 0 unless eval { do { $module->inst_file } }
1247 0 0 unless eval 'require LWP::Simple; require URI; 1'
1253 0 0 if defined $content
1274 0 0 unless my $module = _expand_module($arg)
1276 0 0 unless ($module)
1284 0 0 unless $module->userid
1299 0 0 unless my $module = _expand_module($arg)
1302 0 0 unless $module->userid
1305 0 0 $module->description ? :
0 0 $module->cpan_file ? :
0 0 $module->inst_file ? :
0 0 $module->inst_version ? :
0 0 $module->uptodate ? :
1325 0 0 if $modules
1339 0 0 unless $module->inst_file
1340 0 0 if $module->uptodate
1341 0 0 $module->inst_version ? :
1359 0 0 unless exists $hash{lc $module->userid}
1386 0 0 unless defined $module_name
1401 0 0 if /\A\w+\.pm\z/
1414 0 0 unless open FILE, "<$file"
1421 0 0 /^=cut/ ? :
0 0 /^=(?!cut)/ ? :
1422 0 0 if $in_pod or /^\s*#/
1424 0 0 unless /([\$*])(([\w\:\']*)\bVERSION)\b.*\=/
1432 0 0 unless defined $version
1464 0 0 if length $path < length $inc
1484 0 0 unless (defined $expanded)
1493 0 0 if (defined $guesses and @$guesses)
1546 0 0 unless (defined $distance)
1548 0 0 unless my $can_guess = eval "require $try->[0]; 1"
1556 0 0 unless ($distance)
1570 0 0 if $distance > $threshold