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