Branch Coverage

blib/lib/Perl/Dist/APPerl.pm

Criterion	Covered	Total	%
branch	5	330	1.5

line	true	false	branch
27	0	0	defined $ENV{'APPDATA'} ? :
	1	0	defined $ENV{'HOME'} ? :
41	0	1	unless defined $thispath
43	1	0	unless (-d $sharedir)
46	1	0	unless (-d $sharedir)
47	0	1	unless eval "use File::ShareDir; 1"
751	0	0	if ($projectconfig)
753	0	0	if ($projkey ne 'apperl_configs') { }
775	0	0	if -e "apperl-project.json"
777	0	0	if (defined $base)
778	0	0	unless $defaultconfig
779	0	0	if (exists $Configs->{'apperl_configs'}{$defaultconfig})
782	0	0	unless exists $Configs->{'apperl_configs'}{$base}
787	0	0	if ($defaultconfig and not exists $Configs->{'apperl_configs'}{$defaultconfig})
801	0	0	unless $name
803	0	0	if exists $Configs->{'apperl_configs'}{$name}
804	0	0	if (defined $base)
805	0	0	unless exists $Configs->{'apperl_configs'}{$base}
807	0	0	unless my $projectconfig = _load_json("apperl-project.json")
823	0	0	unless chdir $cosmocc
827	0	0	unless chdir $before
839	0	0	unless (exists $SiteConfig->{'perl_repo'} or $perlrepo)
844	0	0	unless (exists $SiteConfig->{'cosmo_repo'} or $cosmorepo)
865	0	0	if ($src->[$srcindex] eq $remove[$removeindex])
867	0	0	if scalar @remove == 1
880	0	0	if ($UserProjectConfig)
881	0	0	if (exists $UserProjectConfig->{'current_apperl'})
883	0	0	unless exists $Configs->{'apperl_configs'}{$CurAPPerlName}
886	0	0	if (not defined $CurAPPerlName and exists $Configs->{'defaultconfig'})
888	0	0	unless exists $Configs->{'apperl_configs'}{$CurAPPerlName}
893	0	0	if ($projectconfig and exists $projectconfig->{'apperl_configs'})
919	0	0	$CurAPPerlName && $item eq $CurAPPerlName ? :
938	0	0	if ($UserProjectConfig) { }
948	0	0	if (not exists $itemconfig->{'nobuild_perl_bin'}) { }
950	0	0	unless ($itemconfig->{'cosmo3'})
952	0	0	unless chdir $SiteConfig->{'cosmo_repo'}
955	0	0	unless $itemconfig->{'perl_url'}
958	0	0	if (not $itemconfig->{'perl_url'}) { }
959	0	0	unless -d $perl_build_dir
961	0	0	unless chdir $perl_build_dir
966	0	0	unless unlink $todelete or $!{'ENOENT'}
976	0	0	unless chdir $download_dir
977	0	0	unless (-f $tarball_name)
989	0	0	unless move($tomove, $perl_build_dir)
990	0	0	unless chdir $perl_build_dir
998	0	0	unless chdir "/root/.cpan/build/Perl-Dist-APPerl-v0.6.1-0/tests_temp"
1005	0	0	if (-f $perlbin)
1006	0	0	if ($perlbin eq $^X and not -d "/zip")
1014	0	0	unless $validperl
1016	0	0	unless $validperl
1025	0	0	unless my($UserProjectConfig, $CurAPPerlName, $itemconfig) = _load_valid_configs()
1026	0	0	if exists $UserProjectConfig->{'nobuild_perl_bin'}
1028	0	0	unless $perl_build_dir and -d $perl_build_dir
1031	0	0	if (not $itemconfig->{'cosmo3'}) { }
1051	0	0	unless chdir $perl_build_dir
1053	0	0	if exists $itemconfig->{'perl_onlyextensions'}
1069	0	0	if ($^O ne 'cosmo' or not -f '/C/Windows/System32/cmd.exe') { }
1075	0	0	if -f $zippath
1083	0	0	unless my($UserProjectConfig, $CurAPPerlName, $itemconfig) = _load_valid_configs()
1089	0	0	if (not exists $UserProjectConfig->{'nobuild_perl_bin'}) { }
1092	0	0	unless $perl_build_dir and -d $perl_build_dir
1095	0	0	unless chdir $perl_build_dir
1106	0	0	unless -f $PERL_APE
1108	0	0	if (-d $OUTPUTDIR)
1132	0	0	if (not exists $UserProjectConfig->{'nobuild_perl_bin'}) { }
1136	0	0	unless unlink(@toremove) == scalar @toremove
1138	0	0	if (-f "$TEMPDIR$proxyConfig{'installarchlib'}/Devel/PPPort.pm")
1161	0	0	unless copy($srcpath, $destpath)
1163	0	0	unless chmod 0755, $destpath
1168	0	0	if (-f $srcdbg)
1175	0	0	if (not exists $UserProjectConfig->{'nobuild_perl_bin'} or scalar keys %{$$itemconfig{"zip_extra_files"};})
1177	0	0	unless chdir $ZIP_ROOT
1184	0	0	if (exists $itemconfig->{'install_modules'})
1229	0	0	if (-d $modulepath) { }
	0	0	elsif (-f _) { }
1243	0	0	unless chdir $modulepath
1246	0	0	if (-f 'Build.PL') { }
	0	0	elsif (-f 'Makefile.PL') { }
1263	0	0	unless open my $makefile, "<", "Makefile.aperl"
1266	0	0	unless open my $newmakefile, ">", "Makefile.aperl"
1281	0	0	if (exists $itemconfig->{'default_script'})
1282	0	0	unless length $itemconfig->{'default_script'} <= 255
1283	0	0	unless open my $fh, "+<:raw", $APPPATH
1286	0	0	unless $bread and $bread == $fsize
1289	0	0	unless $sentinelpos != -1
1292	0	0	unless seek $fh, $patchpos, 0
1293	0	0	unless print $fh $itemconfig->{'default_script'} . "\000"
1299	0	0	unless -e $srcpath
1302	0	0	unless move($srcpath, $destpath)
1306	0	0	if (exists $itemconfig->{'dest'})
1308	0	0	unless chdir "/root/.cpan/build/Perl-Dist-APPerl-v0.6.1-0/tests_temp"
1311	0	0	if $srcfile =~ /dbg$/
1312	0	0	if (-f $destfile)
1316	0	0	unless move($destfile, $olddest)
1319	0	0	unless -e $args[0]
1321	0	0	unless cp(@args)
1343	0	0	if @_
1344	0	0	unless $command
1345	0	0	if ($command eq 'list') { }
	0	0	elsif ($command eq 'build') { }
	0	0	elsif ($command eq 'configure') { }
	0	0	elsif ($command =~ /^(\-)*(halp|help|h)$/i) { }
	0	0	elsif ($command =~ /^(\-)*(version|v)$/i) { }
	0	0	elsif ($command eq 'checkout') { }
	0	0	elsif ($command eq 'init') { }
	0	0	elsif ($command eq 'install-build-deps') { }
	0	0	elsif ($command eq 'new-config') { }
	0	0	elsif ($command eq 'get-config-key') { }
1352	0	0	if @_
1364	0	0	unless &GetOptionsFromArray(\@_, "zippath|z=s", \$zippath, "help|h", \$help)
1367	0	0	if ($help)
1389	0	0	unless scalar @_ == 1
1405	0	0	unless &GetOptionsFromArray(\@_, "name|n=s", \$name, "base|b=s", \$base, "help|h", \$help)
1409	0	0	if ($help)
1427	0	0	unless &GetOptionsFromArray(\@_, "cosmo|c=s", \$cosmo, "perl|p=s", \$perl, "help|h", \$help)
1431	0	0	if ($help)
1448	0	0	unless &GetOptionsFromArray(\@_, "name|n=s", \$name, "base|b=s", \$base, "help|h", \$help)
1452	0	0	if ($help)
1459	0	0	unless scalar @_ == 2
1471	0	0	unless system({$_[0];} @_) == 0
1476	0	0	unless my $kid = open(my $from_kid, "-|", @_)
1479	0	0	unless $? >> 8 == 0
1487	0	0	unless open my $to_kid, "|-", @_
1488	0	0	unless copy($input_file, $to_kid)
1490	0	0	unless $? >> 8 == 0
1498	0	0	unless chdir $repopath
1509	0	0	unless open my $fh, ">", $destpath
1516	0	0	unless open my $fh, "<", $jsonpath
1524	0	0	unless exists $apperlconfigs->{$cfgname}
1542	0	0	if ($key =~ /^(\+|\-)(.+)/) { }
1545	0	0	unless exists $itemconfig{$realkey}
1547	0	0	unless $rtype
1548	0	0	if ($append) { }
1549	0	0	if ($rtype eq 'ARRAY') { }
	0	0	elsif ($rtype eq 'HASH') { }
1562	0	0	if ($rtype eq 'ARRAY') { }
1580	0	0	unless $path
1581	0	0	unless -e $path
1586	0	0	if (exists $itemconfig{'include_Perl-Dist-APPerl'} and $itemconfig{'include_Perl-Dist-APPerl'})
1588	0	0	unless defined $thispath
1591	0	0	if (basename($0) ne "apperlm")
1595	0	0	unless defined $apperlm
1599	0	0	unless opendir my $dh, "/root/.cpan/build/Perl-Dist-APPerl-v0.6.1-0/blib/lib/auto/share/dist/Perl-Dist-APPerl"
1601	0	0	if $file eq "." or $file eq ".."
1607	0	0	unless (exists $itemconfig{'nobuild_perl_bin'})
1609	0	0	unless $itemconfig{'cosmo_ape_loader'} eq "ape-no-modify-self.o" or $itemconfig{'cosmo_ape_loader'} eq "ape.o"
1622	0	0	if ($UserProjectConfig)
1623	0	0	if (exists $UserProjectConfig->{'current_apperl'})
1625	0	0	unless exists $Configs->{'apperl_configs'}{$CurAPPerlName}
1636	0	0	if @configs
1637	0	0	unless exists $apperlconfigs->{'defaultconfig'}
1645	0	0	if ($is_cosmo3) { }
1647	0	0	unless (exists $SiteConfig->{'cosmocc'})
1651	0	0	unless -d $SiteConfig->{'cosmocc'}
1653	0	0	unless $SiteConfig
1654	0	0	unless -d $SiteConfig->{'cosmo_repo'}
1661	0	0	unless (-d "/root/.cpan/build/Perl-Dist-APPerl-v0.6.1-0/tests_temp/.apperl")
1669	0	0	unless (-d $dest)
1678	0	0	if (-f $src) { }
	0	0	elsif (-d $src) { }
1679	0	0	unless copy($src, $dest)
1683	0	0	unless (-d $dest)
1684	0	0	unless mkdir $dest
1686	0	0	unless opendir my $dh, $src
1688	0	0	if $file eq "." or $file eq ".."