| line |
true |
false |
branch |
|
15
|
0 |
4 |
if (eval 'require prefork') |
|
358
|
4 |
3 |
unless grep {$_ eq \&PAR::find_par;} @INC |
|
359
|
4 |
3 |
unless grep {$_ eq \&PAR::find_par_last;} @INC |
|
363
|
3 |
1 |
if (ref $par eq 'HASH') { } |
|
|
0 |
1 |
elsif ($par =~ /[?*{}\[\]]/) { } |
|
380
|
0 |
6 |
if $PAR::__import |
|
389
|
0 |
6 |
if (unpar($progname)) |
|
394
|
0 |
0 |
if ($PAR::LibCache{$progname}) |
|
406
|
0 |
0 |
if ($progname and not $member) |
|
419
|
0 |
0 |
if (defined $ARGV[0] and not $member) |
|
420
|
0 |
0 |
unless $member = _first_member($zip, "script/$ARGV[0]", "script/$ARGV[0].pl", $ARGV[0], "$ARGV[0].pl") |
|
430
|
0 |
0 |
unless ($member) |
|
447
|
0 |
3 |
if (exists $opt->{'repository'} and exists $opt->{'file'}) { } |
|
|
0 |
3 |
elsif (exists $opt->{'file'} and exists $opt->{'install'} || exists $opt->{'upgrade'}) { } |
|
|
0 |
3 |
elsif (not exists $opt->{'repository'} || exists $opt->{'file'}) { } |
|
454
|
0 |
0 |
exists $opt->{'install'} ? : |
|
462
|
3 |
0 |
if (exists $opt->{'file'}) { } |
|
464
|
0 |
3 |
unless defined $opt->{'file'} |
|
468
|
2 |
1 |
unless defined $fallback |
|
470
|
2 |
1 |
if (not $fallback) { } |
|
483
|
0 |
0 |
unless $client |
|
485
|
0 |
0 |
if (defined $opt->{'run'}) |
|
497
|
1 |
2 |
if (defined $opt->{'run'}) |
|
506
|
1 |
0 |
!($script =~ m[^script/]) ? : |
|
512
|
0 |
1 |
unless (defined $member) |
|
531
|
0 |
0 |
if ($@ or not eval 'PAR::Repository::Client'->VERSION >= 0.04) |
|
535
|
0 |
0 |
if ($opt->{'upgrade'} and not eval 'PAR::Repository::Client'->VERSION >= 0.22) |
|
539
|
0 |
0 |
if ($opt->{'dependencies'} and not eval 'PAR::Repository::Client'->VERSION >= 0.23) |
|
546
|
0 |
0 |
if (ref $url and UNIVERSAL::isa($url, 'PAR::Repository::Client')) { } |
|
558
|
0 |
0 |
if (exists $opt->{'fallback'} and not $opt->{'fallback'}) { } |
|
564
|
0 |
0 |
if $opt->{'upgrade'} |
|
577
|
4 |
19 |
if $member |
|
590
|
0 |
0 |
unless $cache |
|
593
|
0 |
0 |
if ($name =~ /$regex/) |
|
610
|
0 |
1 |
unless $member->extractToFileHandle($fh) == 0 |
|
617
|
0 |
1 |
if $@ =~ /^_TK_EXIT_\((\d+)\)/ |
|
618
|
0 |
1 |
if $@ |
|
631
|
0 |
0 |
unless $member->extractToFileHandle($fh) == 0 |
|
648
|
0 |
0 |
if $@ =~ /^_TK_EXIT_\((\d+)\)/ |
|
649
|
0 |
0 |
if $@ |
|
656
|
0 |
0 |
unless open my $ffh, '<', $filename |
|
664
|
0 |
0 |
unless open my $fh, '<', \$string |
|
671
|
0 |
0 |
if $@ =~ /^_TK_EXIT_\((\d+)\)/ |
|
672
|
0 |
0 |
if $@ |
|
682
|
1 |
0 |
defined $PAR::Config{'dlext'} ? : |
|
693
|
0 |
1 |
unless open my $lock, '>', $inc_lock |
|
696
|
1 |
0 |
unless (-d $inc and -e $canary) |
|
702
|
0 |
1 |
if ($is_handle) { } |
|
706
|
0 |
1 |
if eval {
do {
require Archive::Unzip::Burst;
Archive::Unzip::Burst::unzip($file_or_azip_handle, $inc) == 0
}
} |
|
713
|
0 |
1 |
unless open my $fh, '<', $file_or_azip_handle |
|
723
|
0 |
1 |
unless $zip->readFromFileHandle($fh, $file_or_azip_handle) == 0 |
|
731
|
0 |
7 |
if -e $outfile and not -w _ |
|
740
|
0 |
1 |
$is_handle ? : |
|
778
|
0 |
15 |
if (@PAR::UpgradeRepositoryObjects) |
|
787
|
0 |
0 |
if (exists $INC{$args[1]}) |
|
794
|
0 |
0 |
$line ? : |
|
811
|
15 |
0 |
if defined $rv or not @PAR::PriorityRepositoryObjects |
|
819
|
0 |
0 |
if ($local_file) |
|
836
|
1 |
2 |
if defined $rv |
|
839
|
2 |
0 |
unless @PAR::RepositoryObjects |
|
846
|
0 |
0 |
if ($local_file) |
|
863
|
5 |
13 |
@$INC_ARY ? : |
|
865
|
0 |
177 |
if ($] < 5.008001) |
|
867
|
0 |
0 |
if not @$INC_ARY and $path and $path =~ m[//] and $scheme and $scheme =~ /^\w+$/ |
|
872
|
175 |
2 |
unless my $rv = unpar($path, $file, $member_only, 1) |
|
874
|
2 |
0 |
if lc($file) =~ /^(?!tk).*\.pm$/ |
|
883
|
0 |
0 |
unless @par_files |
|
886
|
0 |
0 |
unless my $inc_ref = $PAR::PAR_INC{$par} |
|
911
|
0 |
1 |
unless my $member = _first_member($zip, $file) |
|
926
|
0 |
187 |
unless defined $par |
|
931
|
0 |
187 |
if $PAR::__unpar |
|
934
|
180 |
7 |
unless ($zip) |
|
936
|
0 |
180 |
if ($par =~ m[^\w+://]) { } |
|
|
0 |
180 |
elsif (ref $par eq 'SCALAR') { } |
|
|
178 |
2 |
elsif (not +($allow_other_ext || $par =~ /\.par\z/i) && -f $par) { } |
|
941
|
0 |
0 |
if $par =~ /[?&;]/ |
|
946
|
0 |
0 |
unless (-d $ENV{'PAR_CACHE'}) |
|
949
|
0 |
0 |
unless -d $ENV{'PAR_CACHE'} |
|
959
|
0 |
0 |
unless (%escapes) |
|
969
|
0 |
0 |
unless -e $file and -f _ |
|
983
|
178 |
0 |
unless -f $par |
|
990
|
2 |
0 |
unless (ref $par) |
|
1003
|
0 |
2 |
unless $rv == 0 |
|
1013
|
0 |
0 |
if $member->isDirectory |
|
1015
|
0 |
0 |
unless $content =~ /^PK\003\004/ |
|
1025
|
2 |
0 |
if (not $unpar_options{'no_shlib_unpack'} and defined $ENV{'PAR_TEMP'}) |
|
1030
|
0 |
0 |
if $member->isDirectory |
|
1032
|
0 |
0 |
unless $member_name =~ m[
\/([^/]+)$
]x or $member_name =~ m[
^([^/]+)$
] |
|
1041
|
0 |
0 |
unless (-e $dest_name) |
|
1043
|
0 |
0 |
unless $member->extractToFileNamed($dest_name) == 0 |
|
1059
|
2 |
8 |
if (defined $ENV{$key} and $ENV{$key} ne '') { } |
|
1064
|
2 |
0 |
unless grep {$_ eq $tempdir;} split(/$separator/, $ENV{$key}, 0) |
|
1074
|
4 |
5 |
unless defined $file |
|
1076
|
3 |
2 |
unless my $member = _first_member($zip, "lib/$file", "arch/$file", "$arch/$file", "$ver/$file", "$ver/$arch/$file", $file) |
|
1085
|
0 |
2 |
if $member_only |
|
1091
|
0 |
2 |
unless $member->extractToFileHandle($fh) == 0 |
|
1102
|
0 |
3 |
if ($ENV{'PAR_CLEAN'} or not defined $name) |
|
1105
|
0 |
0 |
if (defined &File::Temp::tempfile) |
|
1109
|
0 |
0 |
unless my($fh, $filename) = File::Temp::tempfile('DIR', $PAR::SetupTemp::PARTemp, 'UNLINK', $^O ne 'MSWin32' && !($^O =~ /hpux/)) |
|
1125
|
3 |
0 |
unless (-r $filename) |
|
1128
|
0 |
3 |
unless open my $fh, '>', $tempname |
|
1134
|
0 |
3 |
unless rename $tempname, $filename |
|
1137
|
0 |
3 |
unless open my $fh, '<', $filename |
|
1151
|
0 |
4 |
unless (ref $zip) |
|
1171
|
2 |
2 |
unless $cache |
|
1185
|
0 |
23 |
unless $cache |
|
1196
|
2 |
0 |
if (exists $ENV{'PAR_CLEAN'} and $ENV{'PAR_CLEAN'} and exists $ENV{'PAR_TEMP'} and defined $ENV{'PAR_TEMP'} and -d $ENV{'PAR_TEMP'}) |