Branch Coverage

blib/lib/App/Cpan.pm
Criterion Covered Total %
branch 17 210 8.1


line true false branch
406 1 3 if $ARGV[0] eq 'install' and @ARGV > 1
416 1 0 if (0 == @ARGV) { }
0 0 elsif (&Getopt::Std::getopts(join('', @App::Cpan::option_order), \%options)) { }
429 0 0 if ($options->{'j'}) { }
0 0 elsif (not $options->{'h'}) { }
443 0 0 if $options->{'T'}
447 0 0 unless exists $options->{$o}
452 0 0 if ($options->{'o'})
474 0 0 unless $option_count
482 0 0 unless defined $ENV{'NONINTERACTIVE_TESTING'}
483 0 0 unless defined $ENV{'PERL_MM_USE_DEFAULT'}
521 0 0 unless $options->{$option}
527 0 0 unless (ref $sub eq ref sub { } )
533 0 0 if @ARGV and not $takes_args
560 38 0 if $LL{uc $autoload} < $LL{$LEVEL}
573 0 2 if $INC[-1] eq '.'
582 2 0 unless ($log4perl_loaded)
613 0 0 if $option eq 'f' or $option eq 'T'
614 0 0 unless $options->{$option}
622 0 0 if (not $switch and @$args) { }
0 0 elsif (not $switch || @$args) { }
0 0 elsif ($switch and not @$args) { }
629 0 0 unless 'CPAN::Shell'->can($method)
633 0 0 if ($options->{'f'}) { }
0 0 elsif ($options->{'T'}) { }
641 0 0 unless $options->{'x'}
646 0 0 unless (my $module = _expand_module($arg))
655 0 0 if $error
659 0 0 if (@errors) { }
684 18 0 if defined $what
692 14 0 if defined $what
724 0 29 if ($] < 5.008) { }
739 9 305 if ($lines[-1] =~ /$regex/)
763 0 9 if $last_line =~ /\b(?:Cannot\s+install)\b/i
765 4 5 unless $result
774 5 4 unless $result
779 0 0 if _cpanpm_output_indicates_failure() or _cpanpm_output_indicates_success()
803 0 0 if ($HAVE_PERLDOC) { }
836 0 0 if ($CPAN::Config->{'connect_to_internet_ok'})
838 0 0 unless eval { do { 'CPAN::FTP'->localize('MIRRORED.BY', 'File::Spec'->catfile($CPAN::Config->{'keep_source_where'}, 'MIRRORED.BY'), 3, 1) } }
872 0 0 if (@custom_dirs)
893 0 0 unless @{$tuple->[1];}
919 0 3 unless _home_of($1 || $>)
928 0 0 unless my $ent = User::pwent::getpw($user)
954 0 0 unless _is_pingable_scheme($obj)
973 0 0 if (-e $local_path) { }
993 0 0 unless eval { do { $mirror->can('http') } }
1006 0 0 -w $dir ? :
1016 0 0 $rtt ? :
1027 0 0 ref $mirror ? :
1032 0 0 if ($url->scheme eq 'file')
1038 0 0 unless $port
1040 0 0 if ($ping->can('port_number')) { }
1047 0 0 if $ping->can('hires')
1049 0 0 $alive ? :
1057 0 0 unless ($rc)
1069 0 0 unless ($_[0])
1120 0 0 file_name_is_absolute($argument) ? :
1121 0 0 unless -e $file
1135 0 0 unless $rc
1179 0 0 unless my $module = _expand_module($arg)
1199 0 0 unless $loaded
1211 0 0 if 200 <= $status_code and $status_code <= 300
1223 0 0 unless $loaded
1241 0 0 unless -e $git
1242 0 0 unless -x $git
1263 0 0 unless my $module = _expand_module($arg)
1267 0 0 unless eval { do { $module->inst_file } }
1284 0 0 unless _safe_load_module('LWP::Simple') and _safe_load_module('URI')
1290 0 0 if defined $content
1311 0 0 unless my $module = _expand_module($arg)
1313 0 0 unless ($module)
1321 0 0 unless $module->userid
1336 0 0 unless my $module = _expand_module($arg)
1339 0 0 unless $module->userid
1342 0 0 $module->description ? :
0 0 $module->cpan_file ? :
0 0 $module->inst_file ? :
0 0 $module->inst_version ? :
0 0 $module->uptodate ? :
1362 0 0 if $modules
1376 0 0 unless $module = _expand_module($module)
1377 0 0 unless $module->inst_file
1378 0 0 if $module->uptodate
1379 0 0 $module->inst_version ? :
1397 0 0 unless exists $hash{lc $module->userid}
1424 0 0 unless defined $module_name
1439 0 0 if /\A\w+\.pm\z/
1452 0 0 unless open FILE, "<$file"
1459 0 0 /^=cut/ ? :
0 0 /^=(?!cut)/ ? :
1460 0 0 if $in_pod or /^\s*#/
1462 0 0 unless /([\$*])(([\w\:\']*)\bVERSION)\b.*\=/
1470 0 0 unless defined $version
1502 0 0 if length $path < length $inc
1522 0 0 if $expanded
1524 0 0 unless (defined $expanded)
1533 0 0 if (defined $guesses and @$guesses)
1594 0 0 unless (defined $distance)
1596 0 0 unless $can_guess = eval "require $try->[0]; 1"
1598 0 0 unless $try->[-1]
1606 0 0 unless ($distance)
1607 0 0 unless ($shown_help)
1612 0 0 if ($can_guess) { }
1630 0 0 if $distance > $_threshold