Branch Coverage

blib/lib/CPANPLUS/Dist/Arch.pm

Criterion	Covered	Total	%
branch	72	288	25.0

line	true	false	branch
207	0	0	unless $ENV{$1}
268	1	0	unless (can_run($prog))
313	0	0	unless $self->SUPER::prepare(@_)
334	4	0	if ($arch eq q['any']) { }
341	2	2	$pkg_type eq 'bin' ? :
	2	2	$pkg_type eq 'bin' ? :
362	4	0	$found ? :
384	0	0	unless ($pkg_type =~ /^(?:bin|src)$/)
390	0	0	if ($opts{'verbose'})
395	0	0	if ($pkg_type eq 'bin')
400	0	0	exists $opts{$_} ? :
419	0	0	if (-e $dir)
420	0	0	unless -d _
421	0	0	unless -w _
425	0	0	$opts{'verbose'} ? :
431	0	0	unless (-e $srcfile_fqp)
433	0	0	unless link $tarball_fqp, $srcfile_fqp
449	0	0	if ($cmdopts[$i]) { }
458	0	0	unless chdir $status->pkgbase
462	0	0	if ($CPANPLUS::Dist::Arch::CHILD_ERROR)
463	0	0	$CPANPLUS::Dist::Arch::CHILD_ERROR & 127 ? :
470	0	0	unless chdir $oldcwd
493	0	0	unless ($pkgfile_fqp)
502	0	0	unless -f $pkgfile_fqp
505	0	0	$opts{'force'} ? :
	0	0	$Is_dependency ? :
513	0	0	if ($CPANPLUS::Dist::Arch::EFFECTIVE_USER_ID != $ROOT_USER_ID)
514	0	0	if ($sudocmd) { }
526	0	0	if ($CPANPLUS::Dist::Arch::CHILD_ERROR)
527	0	0	$CPANPLUS::Dist::Arch::CHILD_ERROR & 127 ? :
547	0	34	if @_ == 0
552	6	28	if $PKGNAME_OVERRIDES->{$distname}
567	0	28	if length $distname == 0
571	17	11	unless $distname eq 'perl'
612	0	0	if @_ != 2
676	0	10	if @_ != 1
681	0	10	unless $status->prepared
697	10	0	if (eval { do { require Digest::SHA } })
703	0	20	if (@{$pkglinks->{$_};})
713	0	0	if @_ != 1
723	0	0	unless @_ % 2 == 0
733	1	1	unless $modname
735	0	1	unless eval "require $modname; 1;"
745	1	0	unless defined $TT_MOD_NAME
766	0	10	if @_ < 1
773	0	10	unless $status->prepared
788	10	0	$dist_type eq 'CPANPLUS::Dist::Build' ? :
	0	10	$dist_type eq 'CPANPLUS::Dist::MM' ? :
800	0	0	if @_ < 2
803	0	0	unless -d $destdir and -w _
810	0	0	unless open my $pkgbuild_file, '>', $fqpath
813	0	0	unless close $pkgbuild_file
834	0	0	$pkg_type eq 'src' ? :
874	0	0	if $x eq $y
877	0	0	if ($op =~ /^
	0	0	elsif ($op =~ /^>/) { }
878	0	0	$x < $y ? :
880	0	0	$x > $y ? :
905	0	0	if ($a->[0] ne $b->[0] or $a->[1] ne $b->[1]) { }
	0	0	elsif (defined($x = $a->[2]) and defined($y = $b->[2])) { }
	0	0	elsif (not defined $x and defined $y) { }
	0	0	elsif (defined $x and not defined $y) { }
929	60	20	if @$a == 0
936	0	0	if (not defined $x) { }
	0	0	elsif ($x <= 0) { }
953	0	0	unless $CPANPLUS::Dist::Arch::a->[0] cmp $CPANPLUS::Dist::Arch::b->[0]
964	0	30	if (&$sub(@{$$a[$i];})) { }
1009	10	0	if $mod eq 'perl'
1012	0	0	unless ($x = $be->module_tree($mod) and $y = $x->package_name)
1015	0	0	unless (_ismainmod($mod, $y))
1031	0	10	if (not defined $v) { }
	10	0	elsif ($a->[$i][0] eq 'perl') { }
1051	1	17	if $perlver =~ s/\Av//
1053	14	3	unless $perlver =~ /\A(\d+)[.](\d{3})(\d{1,3})\z/
1068	0	0	unless defined $vspec
1071	0	0	if $vspec =~ /^[0-9a-zA-Z._-]+$/
1076	0	0	unless ($opver =~ /^([<>]=?|[!=]=) +([0-9a-zA-Z._-]+)$/)
1082	0	0	if (@specs == 0) { }
1094	0	0	unless (ref $vs)
1100	0	0	if ($op eq '!=') { }
1103	0	0	unless (defined $cons)
1129	0	30	if (grep({$_->[0] =~ /^perl/;} @$d) > 1)
1132	0	0	unless $_->[0] ne 'perl'
1149	0	0	if (eval { do { _cmpspecs($x, $b->[$i]) == 0 } }) { }
1169	0	10	if @_ != 1
1174	0	10	if (defined $self->status->metareqs) { }
1186	10	0	unless ($d =~ /^ExtUtils-/)
1189	10	0	unless ($d =~ /^Test-/)
1205	0	10	if (@$xsdeps)
1211	0	10	unless (grep {$_->[0] =~ /^perl/;} @deps)
1244	0	10	$inst_type eq 'CPANPLUS::Dist::MM' ? :
1268	0	0	unless my $lib_fqp = DynaLoader::dl_findfile($libname)
1274	0	0	if ($CPANPLUS::Dist::Arch::CHILD_ERROR != 0 or not $result =~ s/$PACMAN_FINDOWN//)
1275	0	0	if ($CPANPLUS::Dist::Arch::CHILD_ERROR == 127) { }
1293	0	0	$seen{$_}++ ? :
1307	0	0	unless my $mkfile_fqp = $dist->status->makefile
1310	0	0	unless open my $mkfile, '<', $mkfile_fqp
1368	0	0	unless -e $podfile_path
1374	0	0	unless open my $podfile, '<', $podfile_path
1377	0	0	unless open my $podout, '>', \$name_section
1382	0	0	unless close $podout
1384	0	0	unless $name_section
1391	0	0	if ($name_section =~ / ^ \s* $modname [ -]+ ([^\n]+) /msx)
1406	0	0	unless open my $readme, '<', catfile($mod_obj->status->extract, 'README')
1414	0	0	unless /^NAME/ ... /^[A-Z]+/ and / ^ \s* $mod_name [\s\-]+ (.+) $ /mosx
1435	5	0	unless ($dist_dir and -d $dist_dir)
1444	0	0	if (_find_xs_files($dist_dir)) { }
1448	0	0	unless opendir my $basedir, $dist_dir
1449	0	0	if not /^./
1453	0	0	unless _find_xs_files($childdir)
1461	0	0	$found_xs ? :
1477	0	5	if @_ != 1
1499	5	0	if $pkgdesc = &$pkgdesc_src($module)
1502	5	0	if ($pkgdesc) { }
1522	0	10	if (-f $p)
1535	0	0	if (defined $meta->{'meta-spec'} and $meta->{'meta-spec'}{'url'} =~ /cpan[.]org/) { }
1546	0	0	unless ($meta->{'name'} =~ /^Test-/)
1548	0	0	if ($m =~ /^Test::/)
1560	0	0	unless my $d = $meta->{'abstract'}
1565	0	0	if $d eq $b
1581	5	0	unless my $path = _metapath($modobj)
1583	0	0	unless $meta
1601	0	5	if @_ != 1
1616	0	15	unless defined $_
1630	5	0	unless $status->pkgdesc
1643	0	10	if @_ != 1
1656	0	10	if @_ != 1
1676	0	0	unless open my $distfile, '<', $tarball_fqp
1702	0	0	if $sum
1713	0	4	unless @_ == 3
1718	0	4	unless $text =~ /$begin_match/
1729	0	4	unless $text =~ /$end_match/go
1739	0	4	if ($text =~ /$begin_match/go and pos $text < $after_start)
1762	0	4	unless $varname
1766	1	3	unless ($templ_vars->{$varname})
1783	3	0	unless eval "require $ttmod; 1;"
1805	0	1	unless $TT_MOD_NAME
1812	0	1	$TT_MOD_NAME eq 'Template' ? :
1819	0	1	if eval { do { $tt_obj->error } }
1839	0	10	if @_ != 3
1842	0	10	if ref $templ_vars ne 'HASH'
1846	0	10	unless defined $TT_MOD_NAME
1849	1	9	if $TT_MOD_NAME
1856	5	1	defined $templ_vars->{$1} ? :