Branch Coverage

blib/lib/App/Cpan.pm

Criterion	Covered	Total	%
branch	13	186	6.9

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 = _expand_module($module)
1340	0	0	unless $module->inst_file
1341	0	0	if $module->uptodate
1342	0	0	$module->inst_version ? :
1360	0	0	unless exists $hash{lc $module->userid}
1387	0	0	unless defined $module_name
1402	0	0	if /\A\w+\.pm\z/
1415	0	0	unless open FILE, "<$file"
1422	0	0	/^=cut/ ? :
	0	0	/^=(?!cut)/ ? :
1423	0	0	if $in_pod or /^\s*#/
1425	0	0	unless /([\$*])(([\w\:\']*)\bVERSION)\b.*\=/
1433	0	0	unless defined $version
1465	0	0	if length $path < length $inc
1485	0	0	if $expanded
1487	0	0	unless (defined $expanded)
1496	0	0	if (defined $guesses and @$guesses)
1549	0	0	unless (defined $distance)
1551	0	0	unless my $can_guess = eval "require $try->[0]; 1"
1559	0	0	unless ($distance)
1573	0	0	if $distance > $threshold