| line |
true |
false |
branch |
|
26
|
0 |
0 |
defined $ENV{'APPDATA'} ? : |
|
|
1 |
0 |
defined $ENV{'HOME'} ? : |
|
727
|
0 |
0 |
if ($projectconfig) |
|
729
|
0 |
0 |
if ($projkey ne 'apperl_configs') { } |
|
751
|
0 |
0 |
if -e "apperl-project.json" |
|
753
|
0 |
0 |
if (defined $base) |
|
754
|
0 |
0 |
unless $defaultconfig |
|
755
|
0 |
0 |
if (exists $Configs->{'apperl_configs'}{$defaultconfig}) |
|
758
|
0 |
0 |
unless exists $Configs->{'apperl_configs'}{$base} |
|
763
|
0 |
0 |
if ($defaultconfig and not exists $Configs->{'apperl_configs'}{$defaultconfig}) |
|
777
|
0 |
0 |
unless $name |
|
779
|
0 |
0 |
if exists $Configs->{'apperl_configs'}{$name} |
|
780
|
0 |
0 |
if (defined $base) |
|
781
|
0 |
0 |
unless exists $Configs->{'apperl_configs'}{$base} |
|
783
|
0 |
0 |
unless my $projectconfig = _load_json("apperl-project.json") |
|
793
|
0 |
0 |
unless ($SiteConfig and exists $SiteConfig->{'perl_repo'} or $perlrepo) |
|
798
|
0 |
0 |
unless ($SiteConfig and exists $SiteConfig->{'cosmo_repo'} or $cosmorepo) |
|
831
|
0 |
0 |
if ($UserProjectConfig) |
|
832
|
0 |
0 |
if (exists $UserProjectConfig->{'current_apperl'}) |
|
834
|
0 |
0 |
unless exists $Configs->{'apperl_configs'}{$CurAPPerlName} |
|
837
|
0 |
0 |
if (not defined $CurAPPerlName and exists $Configs->{'defaultconfig'}) |
|
839
|
0 |
0 |
unless exists $Configs->{'apperl_configs'}{$CurAPPerlName} |
|
844
|
0 |
0 |
if ($projectconfig and exists $projectconfig->{'apperl_configs'}) |
|
859
|
0 |
0 |
$CurAPPerlName && $item eq $CurAPPerlName ? : |
|
880
|
0 |
0 |
if ($UserProjectConfig) { } |
|
888
|
0 |
0 |
if (not exists $itemconfig->{'nobuild_perl_bin'}) { } |
|
889
|
0 |
0 |
unless my $SiteConfig = _load_json("/root/.config/apperl/site.json") |
|
890
|
0 |
0 |
unless -d $SiteConfig->{'cosmo_repo'} |
|
891
|
0 |
0 |
unless -d $SiteConfig->{'perl_repo'} |
|
893
|
0 |
0 |
unless chdir $SiteConfig->{'cosmo_repo'} |
|
897
|
0 |
0 |
unless chdir $SiteConfig->{'perl_repo'} |
|
902
|
0 |
0 |
unless unlink $todelete or $!{'ENOENT'} |
|
907
|
0 |
0 |
unless chdir "/root/.cpan/build/Perl-Dist-APPerl-v0.2.1-0" |
|
914
|
0 |
0 |
if (-f $perlbin) |
|
915
|
0 |
0 |
if ($perlbin eq $^X and not -d "/zip") |
|
923
|
0 |
0 |
unless $validperl |
|
925
|
0 |
0 |
unless $validperl |
|
937
|
0 |
0 |
unless my $UserProjectConfig = _load_valid_user_project_config_with_default($Configs) |
|
939
|
0 |
0 |
if exists $UserProjectConfig->{'nobuild_perl_bin'} |
|
940
|
0 |
0 |
unless my $SiteConfig = _load_json("/root/.config/apperl/site.json") |
|
941
|
0 |
0 |
unless -d $SiteConfig->{'cosmo_repo'} |
|
942
|
0 |
0 |
unless -d $SiteConfig->{'perl_repo'} |
|
956
|
0 |
0 |
unless chdir $SiteConfig->{'perl_repo'} |
|
961
|
0 |
0 |
if exists $itemconfig->{'perl_onlyextensions'} |
|
976
|
0 |
0 |
if ($^O ne 'cosmo' or not -f '/C/Windows/System32/cmd.exe') { } |
|
982
|
0 |
0 |
if -f $zippath |
|
991
|
0 |
0 |
unless my $UserProjectConfig = _load_valid_user_project_config_with_default($Configs) |
|
998
|
0 |
0 |
if (not exists $UserProjectConfig->{'nobuild_perl_bin'}) { } |
|
999
|
0 |
0 |
unless my $SiteConfig = _load_json("/root/.config/apperl/site.json") |
|
1000
|
0 |
0 |
unless -d $SiteConfig->{'cosmo_repo'} |
|
1001
|
0 |
0 |
unless -d $SiteConfig->{'perl_repo'} |
|
1004
|
0 |
0 |
unless chdir $SiteConfig->{'perl_repo'} |
|
1015
|
0 |
0 |
unless -f $PERL_APE |
|
1017
|
0 |
0 |
if (-d $OUTPUTDIR) |
|
1033
|
0 |
0 |
if (not exists $UserProjectConfig->{'nobuild_perl_bin'}) { } |
|
1037
|
0 |
0 |
unless unlink(@toremove) == scalar @toremove |
|
1047
|
0 |
0 |
unless copy($PERL_APE, $APPPATH) |
|
1049
|
0 |
0 |
unless chmod 0755, $APPPATH |
|
1050
|
0 |
0 |
if (not exists $UserProjectConfig->{'nobuild_perl_bin'} or scalar keys %{$$itemconfig{"zip_extra_files"};}) |
|
1052
|
0 |
0 |
unless chdir $ZIP_ROOT |
|
1062
|
0 |
0 |
unless move($APPPATH, "$OUTPUTDIR/perl.com") |
|
1065
|
0 |
0 |
if (exists $itemconfig->{'dest'}) |
|
1067
|
0 |
0 |
unless chdir "/root/.cpan/build/Perl-Dist-APPerl-v0.2.1-0" |
|
1070
|
0 |
0 |
unless cp(@args) |
|
1091
|
0 |
0 |
if @_ |
|
1092
|
0 |
0 |
unless $command |
|
1093
|
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') { } |
|
1100
|
0 |
0 |
if @_ |
|
1112
|
0 |
0 |
unless &GetOptionsFromArray(\@_, "zippath|z=s", \$zippath, "help|h", \$help) |
|
1115
|
0 |
0 |
if ($help) |
|
1137
|
0 |
0 |
unless scalar @_ == 1 |
|
1153
|
0 |
0 |
unless &GetOptionsFromArray(\@_, "name|n=s", \$name, "base|b=s", \$base, "help|h", \$help) |
|
1157
|
0 |
0 |
if ($help) |
|
1175
|
0 |
0 |
unless &GetOptionsFromArray(\@_, "cosmo|c=s", \$cosmo, "perl|p=s", \$perl, "help|h", \$help) |
|
1179
|
0 |
0 |
if ($help) |
|
1196
|
0 |
0 |
unless &GetOptionsFromArray(\@_, "name|n=s", \$name, "base|b=s", \$base, "help|h", \$help) |
|
1200
|
0 |
0 |
if ($help) |
|
1207
|
0 |
0 |
unless scalar @_ == 2 |
|
1218
|
0 |
0 |
unless system(@_) == 0 |
|
1223
|
0 |
0 |
unless my $kid = open(my $from_kid, "-|", @_) |
|
1226
|
0 |
0 |
unless $? >> 8 == 0 |
|
1235
|
0 |
0 |
unless chdir $repopath |
|
1246
|
0 |
0 |
unless open my $fh, ">", $destpath |
|
1253
|
0 |
0 |
unless open my $fh, "<", $jsonpath |
|
1261
|
0 |
0 |
unless exists $apperlconfigs->{$cfgname} |
|
1279
|
0 |
0 |
if ($key =~ /^(\+|\-)(.+)/) { } |
|
1282
|
0 |
0 |
unless exists $itemconfig{$realkey} |
|
1284
|
0 |
0 |
unless $rtype |
|
1285
|
0 |
0 |
if ($append) { } |
|
1286
|
0 |
0 |
if ($rtype eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($rtype eq 'HASH') { } |
|
1299
|
0 |
0 |
if ($rtype eq 'ARRAY') { } |
|
1317
|
0 |
0 |
unless $path |
|
1318
|
0 |
0 |
unless -e $path |
|
1323
|
0 |
0 |
if (exists $itemconfig{'include_Perl-Dist-APPerl'} and $itemconfig{'include_Perl-Dist-APPerl'}) |
|
1325
|
0 |
0 |
unless defined $thispath |
|
1333
|
0 |
0 |
unless (exists $itemconfig{'nobuild_perl_bin'}) |
|
1335
|
0 |
0 |
unless $itemconfig{'cosmo_ape_loader'} eq "ape-no-modify-self.o" or $itemconfig{'cosmo_ape_loader'} eq "ape.o" |
|
1348
|
0 |
0 |
if ($UserProjectConfig) |
|
1349
|
0 |
0 |
if (exists $UserProjectConfig->{'current_apperl'}) |
|
1351
|
0 |
0 |
unless exists $Configs->{'apperl_configs'}{$CurAPPerlName} |
|
1361
|
0 |
0 |
if $UserProjectConfig or not exists $Configs->{'defaultconfig'} |
|
1368
|
0 |
0 |
unless (-d "/root/.cpan/build/Perl-Dist-APPerl-v0.2.1-0/.apperl") |
|
1376
|
0 |
0 |
unless (-d $dest) |
|
1385
|
0 |
0 |
if (-f $src) { } |
|
|
0 |
0 |
elsif (-d $src) { } |
|
1386
|
0 |
0 |
unless copy($src, $dest) |
|
1390
|
0 |
0 |
unless (-d $dest) |
|
1391
|
0 |
0 |
unless mkdir $dest |
|
1393
|
0 |
0 |
unless opendir my $dh, $src |
|
1395
|
0 |
0 |
if $file eq "." or $file eq ".." |