Branch Coverage

blib/lib/Perl/Dist/APPerl.pm
Criterion Covered Total %
branch 1 240 0.4


line true false branch
27 0 0 defined $ENV{'APPDATA'} ? :
1 0 defined $ENV{'HOME'} ? :
728 0 0 if ($projectconfig)
730 0 0 if ($projkey ne 'apperl_configs') { }
752 0 0 if -e "apperl-project.json"
754 0 0 if (defined $base)
755 0 0 unless $defaultconfig
756 0 0 if (exists $Configs->{'apperl_configs'}{$defaultconfig})
759 0 0 unless exists $Configs->{'apperl_configs'}{$base}
764 0 0 if ($defaultconfig and not exists $Configs->{'apperl_configs'}{$defaultconfig})
778 0 0 unless $name
780 0 0 if exists $Configs->{'apperl_configs'}{$name}
781 0 0 if (defined $base)
782 0 0 unless exists $Configs->{'apperl_configs'}{$base}
784 0 0 unless my $projectconfig = _load_json("apperl-project.json")
794 0 0 unless ($SiteConfig and exists $SiteConfig->{'perl_repo'} or $perlrepo)
799 0 0 unless ($SiteConfig and exists $SiteConfig->{'cosmo_repo'} or $cosmorepo)
832 0 0 if ($UserProjectConfig)
833 0 0 if (exists $UserProjectConfig->{'current_apperl'})
835 0 0 unless exists $Configs->{'apperl_configs'}{$CurAPPerlName}
838 0 0 if (not defined $CurAPPerlName and exists $Configs->{'defaultconfig'})
840 0 0 unless exists $Configs->{'apperl_configs'}{$CurAPPerlName}
845 0 0 if ($projectconfig and exists $projectconfig->{'apperl_configs'})
860 0 0 $CurAPPerlName && $item eq $CurAPPerlName ? :
881 0 0 if ($UserProjectConfig) { }
889 0 0 if (not exists $itemconfig->{'nobuild_perl_bin'}) { }
890 0 0 unless my $SiteConfig = _load_json("/root/.config/apperl/site.json")
891 0 0 unless -d $SiteConfig->{'cosmo_repo'}
892 0 0 unless -d $SiteConfig->{'perl_repo'}
894 0 0 unless chdir $SiteConfig->{'cosmo_repo'}
898 0 0 unless chdir $SiteConfig->{'perl_repo'}
903 0 0 unless unlink $todelete or $!{'ENOENT'}
908 0 0 unless chdir "/root/.cpan/build/Perl-Dist-APPerl-v0.2.0-0"
915 0 0 if (-f $perlbin)
916 0 0 if ($perlbin eq $^X and not -d "/zip")
924 0 0 unless $validperl
926 0 0 unless $validperl
938 0 0 unless my $UserProjectConfig = _load_valid_user_project_config_with_default($Configs)
940 0 0 if exists $UserProjectConfig->{'nobuild_perl_bin'}
941 0 0 unless my $SiteConfig = _load_json("/root/.config/apperl/site.json")
942 0 0 unless -d $SiteConfig->{'cosmo_repo'}
943 0 0 unless -d $SiteConfig->{'perl_repo'}
957 0 0 unless chdir $SiteConfig->{'perl_repo'}
962 0 0 if exists $itemconfig->{'perl_onlyextensions'}
977 0 0 if ($^O ne 'cosmo' or not -f '/C/Windows/System32/cmd.exe') { }
983 0 0 if -f $zippath
992 0 0 unless my $UserProjectConfig = _load_valid_user_project_config_with_default($Configs)
999 0 0 if (not exists $UserProjectConfig->{'nobuild_perl_bin'}) { }
1000 0 0 unless my $SiteConfig = _load_json("/root/.config/apperl/site.json")
1001 0 0 unless -d $SiteConfig->{'cosmo_repo'}
1002 0 0 unless -d $SiteConfig->{'perl_repo'}
1005 0 0 unless chdir $SiteConfig->{'perl_repo'}
1016 0 0 unless -f $PERL_APE
1018 0 0 if (-d $OUTPUTDIR)
1034 0 0 if (not exists $UserProjectConfig->{'nobuild_perl_bin'}) { }
1038 0 0 unless unlink(@toremove) == scalar @toremove
1048 0 0 unless copy($PERL_APE, $APPPATH)
1050 0 0 unless chmod 0755, $APPPATH
1051 0 0 if (not exists $UserProjectConfig->{'nobuild_perl_bin'} or scalar keys %{$$itemconfig{"zip_extra_files"};})
1053 0 0 unless chdir $ZIP_ROOT
1063 0 0 unless move($APPPATH, "$OUTPUTDIR/perl.com")
1066 0 0 if (exists $itemconfig->{'dest'})
1068 0 0 unless chdir "/root/.cpan/build/Perl-Dist-APPerl-v0.2.0-0"
1071 0 0 unless cp(@args)
1092 0 0 if @_
1093 0 0 unless $command
1094 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') { }
1101 0 0 if @_
1113 0 0 unless &GetOptionsFromArray(\@_, "zippath|z=s", \$zippath, "help|h", \$help)
1116 0 0 if ($help)
1138 0 0 unless scalar @_ == 1
1154 0 0 unless &GetOptionsFromArray(\@_, "name|n=s", \$name, "base|b=s", \$base, "help|h", \$help)
1158 0 0 if ($help)
1176 0 0 unless &GetOptionsFromArray(\@_, "cosmo|c=s", \$cosmo, "perl|p=s", \$perl, "help|h", \$help)
1180 0 0 if ($help)
1197 0 0 unless &GetOptionsFromArray(\@_, "name|n=s", \$name, "base|b=s", \$base, "help|h", \$help)
1201 0 0 if ($help)
1208 0 0 unless scalar @_ == 2
1219 0 0 unless system(@_) == 0
1224 0 0 unless my $kid = open(my $from_kid, "-|", @_)
1227 0 0 unless $? >> 8 == 0
1236 0 0 unless chdir $repopath
1247 0 0 unless open my $fh, ">", $destpath
1254 0 0 unless open my $fh, "<", $jsonpath
1262 0 0 unless exists $apperlconfigs->{$cfgname}
1280 0 0 if ($key =~ /^(\+|\-)(.+)/) { }
1283 0 0 unless exists $itemconfig{$realkey}
1285 0 0 unless $rtype
1286 0 0 if ($append) { }
1287 0 0 if ($rtype eq 'ARRAY') { }
0 0 elsif ($rtype eq 'HASH') { }
1300 0 0 if ($rtype eq 'ARRAY') { }
1318 0 0 unless $path
1319 0 0 unless -e $path
1324 0 0 if (exists $itemconfig{'include_Perl-Dist-APPerl'} and $itemconfig{'include_Perl-Dist-APPerl'})
1326 0 0 unless defined $thispath
1334 0 0 unless (exists $itemconfig{'nobuild_perl_bin'})
1336 0 0 unless $itemconfig{'cosmo_ape_loader'} eq "ape-no-modify-self.o" or $itemconfig{'cosmo_ape_loader'} eq "ape.o"
1349 0 0 if ($UserProjectConfig)
1350 0 0 if (exists $UserProjectConfig->{'current_apperl'})
1352 0 0 unless exists $Configs->{'apperl_configs'}{$CurAPPerlName}
1362 0 0 if $UserProjectConfig or not exists $Configs->{'defaultconfig'}
1369 0 0 unless (-d "/root/.cpan/build/Perl-Dist-APPerl-v0.2.0-0/.apperl")
1377 0 0 unless (-d $dest)
1386 0 0 if (-f $src) { }
0 0 elsif (-d $src) { }
1387 0 0 unless copy($src, $dest)
1391 0 0 unless (-d $dest)
1392 0 0 unless mkdir $dest
1394 0 0 unless opendir my $dh, $src
1396 0 0 if $file eq "." or $file eq ".."