Branch Coverage

blib/lib/App/Cpan.pm

Criterion	Covered	Total	%
branch	51	210	24.2

line	true	false	branch
406	1	11	if $ARGV[0] eq "install" and @ARGV > 1
416	1	8	if (0 == @ARGV) { }
	8	0	elsif (&Getopt::Std::getopts(join('', @App::Cpan::option_order), \%options)) { }
429	8	0	if ($options->{'j'}) { }
	0	0	elsif (not $options->{'h'}) { }
443	0	8	if $options->{'T'}
447	40	0	unless exists $options->{$o}
452	0	8	if ($options->{'o'})
474	7	1	unless $option_count
482	0	8	unless defined $ENV{'NONINTERACTIVE_TESTING'}
483	8	0	unless defined $ENV{'PERL_MM_USE_DEFAULT'}
521	193	8	unless $options->{$option}
527	0	8	unless (ref $sub eq ref sub { } )
533	0	8	if @ARGV and not $takes_args
560	75	0	if $LL{uc $autoload} < $LL{$LEVEL}
573	0	10	if $INC[-1] eq "."
582	10	0	unless ($log4perl_loaded)
613	14	14	if $option eq "f" or $option eq "T"
614	7	7	unless $options->{$option}
622	0	7	if (not $switch and @$args) { }
	0	7	elsif (not $switch || @$args) { }
	0	7	elsif ($switch and not @$args) { }
629	0	7	unless "CPAN::Shell"->can($method)
633	0	7	if ($options->{'f'}) { }
	0	7	elsif ($options->{'T'}) { }
641	7	0	unless $options->{'x'}
646	0	7	unless (my $module = _expand_module($arg))
655	4	1	if $error
659	4	1	if (@errors) { }
684	1252	0	if defined $what
692	28	0	if defined $what
724	0	34	if ($] < 5.008) { }
739	11	360	if ($lines[-1] =~ /$regex/)
763	0	14	if $last_line =~ /\b(?:Cannot\s+install)\b/i
765	5	9	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	8	file_name_is_absolute($argument) ? :
1121	0	8	unless -e $file
1135	0	8	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	7	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