| line |
true |
false |
branch |
|
27
|
0 |
0 |
defined $ENV{'APPDATA'} ? : |
|
|
1 |
0 |
defined $ENV{'HOME'} ? : |
|
729
|
0 |
0 |
if ($projectconfig) |
|
731
|
0 |
0 |
if ($projkey ne 'apperl_configs') { } |
|
753
|
0 |
0 |
if -e "apperl-project.json" |
|
755
|
0 |
0 |
if (defined $base) |
|
756
|
0 |
0 |
unless $defaultconfig |
|
757
|
0 |
0 |
if (exists $Configs->{'apperl_configs'}{$defaultconfig}) |
|
760
|
0 |
0 |
unless exists $Configs->{'apperl_configs'}{$base} |
|
765
|
0 |
0 |
if ($defaultconfig and not exists $Configs->{'apperl_configs'}{$defaultconfig}) |
|
779
|
0 |
0 |
unless $name |
|
781
|
0 |
0 |
if exists $Configs->{'apperl_configs'}{$name} |
|
782
|
0 |
0 |
if (defined $base) |
|
783
|
0 |
0 |
unless exists $Configs->{'apperl_configs'}{$base} |
|
785
|
0 |
0 |
unless my $projectconfig = _load_json("apperl-project.json") |
|
795
|
0 |
0 |
unless ($SiteConfig and exists $SiteConfig->{'perl_repo'} or $perlrepo) |
|
800
|
0 |
0 |
unless ($SiteConfig and exists $SiteConfig->{'cosmo_repo'} or $cosmorepo) |
|
833
|
0 |
0 |
if ($UserProjectConfig) |
|
834
|
0 |
0 |
if (exists $UserProjectConfig->{'current_apperl'}) |
|
836
|
0 |
0 |
unless exists $Configs->{'apperl_configs'}{$CurAPPerlName} |
|
839
|
0 |
0 |
if (not defined $CurAPPerlName and exists $Configs->{'defaultconfig'}) |
|
841
|
0 |
0 |
unless exists $Configs->{'apperl_configs'}{$CurAPPerlName} |
|
846
|
0 |
0 |
if ($projectconfig and exists $projectconfig->{'apperl_configs'}) |
|
861
|
0 |
0 |
$CurAPPerlName && $item eq $CurAPPerlName ? : |
|
882
|
0 |
0 |
if ($UserProjectConfig) { } |
|
890
|
0 |
0 |
if (not exists $itemconfig->{'nobuild_perl_bin'}) { } |
|
891
|
0 |
0 |
unless my $SiteConfig = _load_json("/root/.config/apperl/site.json") |
|
892
|
0 |
0 |
unless -d $SiteConfig->{'cosmo_repo'} |
|
893
|
0 |
0 |
unless -d $SiteConfig->{'perl_repo'} |
|
895
|
0 |
0 |
unless chdir $SiteConfig->{'cosmo_repo'} |
|
899
|
0 |
0 |
unless chdir $SiteConfig->{'perl_repo'} |
|
904
|
0 |
0 |
unless unlink $todelete or $!{'ENOENT'} |
|
909
|
0 |
0 |
unless chdir "/root/.cpan/build/Perl-Dist-APPerl-v0.3.0-0" |
|
916
|
0 |
0 |
if (-f $perlbin) |
|
917
|
0 |
0 |
if ($perlbin eq $^X and not -d "/zip") |
|
925
|
0 |
0 |
unless $validperl |
|
927
|
0 |
0 |
unless $validperl |
|
939
|
0 |
0 |
unless my $UserProjectConfig = _load_valid_user_project_config_with_default($Configs) |
|
941
|
0 |
0 |
if exists $UserProjectConfig->{'nobuild_perl_bin'} |
|
942
|
0 |
0 |
unless my $SiteConfig = _load_json("/root/.config/apperl/site.json") |
|
943
|
0 |
0 |
unless -d $SiteConfig->{'cosmo_repo'} |
|
944
|
0 |
0 |
unless -d $SiteConfig->{'perl_repo'} |
|
958
|
0 |
0 |
unless chdir $SiteConfig->{'perl_repo'} |
|
963
|
0 |
0 |
if exists $itemconfig->{'perl_onlyextensions'} |
|
979
|
0 |
0 |
if ($^O ne 'cosmo' or not -f '/C/Windows/System32/cmd.exe') { } |
|
985
|
0 |
0 |
if -f $zippath |
|
994
|
0 |
0 |
unless my $UserProjectConfig = _load_valid_user_project_config_with_default($Configs) |
|
1002
|
0 |
0 |
if (not exists $UserProjectConfig->{'nobuild_perl_bin'}) { } |
|
1003
|
0 |
0 |
unless my $SiteConfig = _load_json("/root/.config/apperl/site.json") |
|
1004
|
0 |
0 |
unless -d $SiteConfig->{'cosmo_repo'} |
|
1005
|
0 |
0 |
unless -d $SiteConfig->{'perl_repo'} |
|
1008
|
0 |
0 |
unless chdir $SiteConfig->{'perl_repo'} |
|
1019
|
0 |
0 |
unless -f $PERL_APE |
|
1021
|
0 |
0 |
if (-d $OUTPUTDIR) |
|
1045
|
0 |
0 |
if (not exists $UserProjectConfig->{'nobuild_perl_bin'}) { } |
|
1049
|
0 |
0 |
unless unlink(@toremove) == scalar @toremove |
|
1069
|
0 |
0 |
unless copy($srcpath, $destpath) |
|
1071
|
0 |
0 |
unless chmod 0755, $destpath |
|
1076
|
0 |
0 |
if (-f $srcdbg) |
|
1083
|
0 |
0 |
if (not exists $UserProjectConfig->{'nobuild_perl_bin'} or scalar keys %{$$itemconfig{"zip_extra_files"};}) |
|
1085
|
0 |
0 |
unless chdir $ZIP_ROOT |
|
1092
|
0 |
0 |
if (exists $itemconfig->{'install_modules'}) |
|
1135
|
0 |
0 |
if (-d $modulepath) { } |
|
|
0 |
0 |
elsif (-f _) { } |
|
1149
|
0 |
0 |
unless chdir $modulepath |
|
1152
|
0 |
0 |
if (-f 'Build.PL') { } |
|
|
0 |
0 |
elsif (-f 'Makefile.PL') { } |
|
1177
|
0 |
0 |
if (exists $itemconfig->{'default_script'}) |
|
1178
|
0 |
0 |
unless length $itemconfig->{'default_script'} <= 255 |
|
1179
|
0 |
0 |
unless open my $fh, "+<:raw", $APPPATH |
|
1182
|
0 |
0 |
unless $bread and $bread == $fsize |
|
1185
|
0 |
0 |
unless $sentinelpos != -1 |
|
1187
|
0 |
0 |
unless seek $fh, $sentinelpos + length($sentinel) + 1, 0 |
|
1188
|
0 |
0 |
unless print $fh $itemconfig->{'default_script'} . "\0" |
|
1194
|
0 |
0 |
unless -e $srcpath |
|
1197
|
0 |
0 |
unless move($srcpath, $destpath) |
|
1201
|
0 |
0 |
if (exists $itemconfig->{'dest'}) |
|
1203
|
0 |
0 |
unless chdir "/root/.cpan/build/Perl-Dist-APPerl-v0.3.0-0" |
|
1206
|
0 |
0 |
if $srcfile =~ /dbg$/ |
|
1208
|
0 |
0 |
unless -e $args[0] |
|
1210
|
0 |
0 |
unless cp(@args) |
|
1232
|
0 |
0 |
if @_ |
|
1233
|
0 |
0 |
unless $command |
|
1234
|
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') { } |
|
1241
|
0 |
0 |
if @_ |
|
1253
|
0 |
0 |
unless &GetOptionsFromArray(\@_, "zippath|z=s", \$zippath, "help|h", \$help) |
|
1256
|
0 |
0 |
if ($help) |
|
1278
|
0 |
0 |
unless scalar @_ == 1 |
|
1294
|
0 |
0 |
unless &GetOptionsFromArray(\@_, "name|n=s", \$name, "base|b=s", \$base, "help|h", \$help) |
|
1298
|
0 |
0 |
if ($help) |
|
1316
|
0 |
0 |
unless &GetOptionsFromArray(\@_, "cosmo|c=s", \$cosmo, "perl|p=s", \$perl, "help|h", \$help) |
|
1320
|
0 |
0 |
if ($help) |
|
1337
|
0 |
0 |
unless &GetOptionsFromArray(\@_, "name|n=s", \$name, "base|b=s", \$base, "help|h", \$help) |
|
1341
|
0 |
0 |
if ($help) |
|
1348
|
0 |
0 |
unless scalar @_ == 2 |
|
1360
|
0 |
0 |
unless system(@_) == 0 |
|
1365
|
0 |
0 |
unless my $kid = open(my $from_kid, "-|", @_) |
|
1368
|
0 |
0 |
unless $? >> 8 == 0 |
|
1377
|
0 |
0 |
unless chdir $repopath |
|
1388
|
0 |
0 |
unless open my $fh, ">", $destpath |
|
1395
|
0 |
0 |
unless open my $fh, "<", $jsonpath |
|
1403
|
0 |
0 |
unless exists $apperlconfigs->{$cfgname} |
|
1421
|
0 |
0 |
if ($key =~ /^(\+|\-)(.+)/) { } |
|
1424
|
0 |
0 |
unless exists $itemconfig{$realkey} |
|
1426
|
0 |
0 |
unless $rtype |
|
1427
|
0 |
0 |
if ($append) { } |
|
1428
|
0 |
0 |
if ($rtype eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($rtype eq 'HASH') { } |
|
1441
|
0 |
0 |
if ($rtype eq 'ARRAY') { } |
|
1459
|
0 |
0 |
unless $path |
|
1460
|
0 |
0 |
unless -e $path |
|
1465
|
0 |
0 |
if (exists $itemconfig{'include_Perl-Dist-APPerl'} and $itemconfig{'include_Perl-Dist-APPerl'}) |
|
1467
|
0 |
0 |
unless defined $thispath |
|
1470
|
0 |
0 |
if (basename($0) ne "apperlm") |
|
1474
|
0 |
0 |
unless defined $apperlm |
|
1481
|
0 |
0 |
unless (exists $itemconfig{'nobuild_perl_bin'}) |
|
1483
|
0 |
0 |
unless $itemconfig{'cosmo_ape_loader'} eq "ape-no-modify-self.o" or $itemconfig{'cosmo_ape_loader'} eq "ape.o" |
|
1496
|
0 |
0 |
if ($UserProjectConfig) |
|
1497
|
0 |
0 |
if (exists $UserProjectConfig->{'current_apperl'}) |
|
1499
|
0 |
0 |
unless exists $Configs->{'apperl_configs'}{$CurAPPerlName} |
|
1509
|
0 |
0 |
if $UserProjectConfig or not exists $Configs->{'defaultconfig'} |
|
1516
|
0 |
0 |
unless (-d "/root/.cpan/build/Perl-Dist-APPerl-v0.3.0-0/.apperl") |
|
1524
|
0 |
0 |
unless (-d $dest) |
|
1533
|
0 |
0 |
if (-f $src) { } |
|
|
0 |
0 |
elsif (-d $src) { } |
|
1534
|
0 |
0 |
unless copy($src, $dest) |
|
1538
|
0 |
0 |
unless (-d $dest) |
|
1539
|
0 |
0 |
unless mkdir $dest |
|
1541
|
0 |
0 |
unless opendir my $dh, $src |
|
1543
|
0 |
0 |
if $file eq "." or $file eq ".." |