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')
399 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
504 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
551 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 $$a[0] cmp $$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} ? :