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