Branch Coverage

blib/lib/App/Cpan.pm

Criterion	Covered	Total	%
branch	15	198	7.5

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
551	38	0	if $autoload =~ /^(debug|trace)$/
564	0	2	if $INC[-1] eq '.'
573	2	0	unless ($log4perl_loaded)
606	0	0	if $option eq 'f' or $option eq 'T'
607	0	0	unless $options->{$option}
615	0	0	if (not $switch and @$args) { }
	0	0	elsif (not $switch || @$args) { }
	0	0	elsif ($switch and not @$args) { }
622	0	0	unless 'CPAN::Shell'->can($method)
626	0	0	if ($options->{'f'}) { }
	0	0	elsif ($options->{'T'}) { }
634	0	0	unless $options->{'x'}
639	0	0	unless (my $module = _expand_module($arg))
648	0	0	if $error
652	0	0	if (@errors) { }
717	0	29	if ($] < 5.008) { }
732	9	305	if ($lines[-1] =~ /$regex/)
756	0	9	if $last_line =~ /\b(?:Cannot\s+install)\b/i
758	4	5	unless $result
767	5	4	unless $result
772	0	0	if _cpanpm_output_indicates_failure() or _cpanpm_output_indicates_success()
822	0	0	if ($CPAN::Config->{'connect_to_internet_ok'})
824	0	0	unless eval { do { 'CPAN::FTP'->localize('MIRRORED.BY', 'File::Spec'->catfile($CPAN::Config->{'keep_source_where'}, 'MIRRORED.BY'), 3, 1) } }
858	0	0	if (@custom_dirs)
879	0	0	unless @{$tuple->[1];}
905	0	3	unless _home_of($1 || $>)
914	0	0	unless my $ent = User::pwent::getpw($user)
940	0	0	unless _is_pingable_scheme($obj)
959	0	0	if (-e $local_path) { }
979	0	0	unless eval { do { $mirror->can('http') } }
992	0	0	-w $dir ? :
1002	0	0	$rtt ? :
1013	0	0	ref $mirror ? :
1018	0	0	if ($url->scheme eq 'file')
1024	0	0	unless $port
1026	0	0	if ($ping->can('port_number')) { }
1033	0	0	if $ping->can('hires')
1035	0	0	$alive ? :
1043	0	0	unless ($rc)
1055	0	0	unless ($_[0])
1109	0	0	unless -e $file
1119	0	0	unless $rc
1163	0	0	unless my $module = _expand_module($arg)
1183	0	0	unless $loaded
1194	0	0	if LWP::Simple::getstore($fetch_path, $store_path)
1205	0	0	unless $loaded
1223	0	0	unless -e $git
1224	0	0	unless -x $git
1245	0	0	unless my $module = _expand_module($arg)
1249	0	0	unless eval { do { $module->inst_file } }
1266	0	0	unless _safe_load_module('LWP::Simple') and _safe_load_module('URI')
1272	0	0	if defined $content
1293	0	0	unless my $module = _expand_module($arg)
1295	0	0	unless ($module)
1303	0	0	unless $module->userid
1318	0	0	unless my $module = _expand_module($arg)
1321	0	0	unless $module->userid
1324	0	0	$module->description ? :
	0	0	$module->cpan_file ? :
	0	0	$module->inst_file ? :
	0	0	$module->inst_version ? :
	0	0	$module->uptodate ? :
1344	0	0	if $modules
1358	0	0	unless $module = _expand_module($module)
1359	0	0	unless $module->inst_file
1360	0	0	if $module->uptodate
1361	0	0	$module->inst_version ? :
1379	0	0	unless exists $hash{lc $module->userid}
1406	0	0	unless defined $module_name
1421	0	0	if /\A\w+\.pm\z/
1434	0	0	unless open FILE, "<$file"
1441	0	0	/^=cut/ ? :
	0	0	/^=(?!cut)/ ? :
1442	0	0	if $in_pod or /^\s*#/
1444	0	0	unless /([\$*])(([\w\:\']*)\bVERSION)\b.*\=/
1452	0	0	unless defined $version
1484	0	0	if length $path < length $inc
1504	0	0	if $expanded
1506	0	0	unless (defined $expanded)
1515	0	0	if (defined $guesses and @$guesses)
1576	0	0	unless (defined $distance)
1578	0	0	unless $can_guess = eval "require $try->[0]; 1"
1580	0	0	unless $try->[-1]
1588	0	0	unless ($distance)
1589	0	0	unless ($shown_help)
1594	0	0	if ($can_guess) { }
1612	0	0	if $distance > $_threshold