| 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 ".." |