| line |
!l |
l&&!r |
l&&r |
condition |
|
171
|
0 |
9 |
6 |
-r $_ and not -d $_ |
|
208
|
0 |
0 |
1 |
$name && $version |
|
|
1 |
0 |
0 |
not $name && $version and open MAKEFILE, "Makefile" |
|
219
|
0 |
0 |
1 |
defined $name and defined $version |
|
265
|
1 |
0 |
0 |
$dist and $file ne $dist |
|
540
|
0 |
0 |
0 |
not defined $value and $key ne "packlist_read" |
|
|
0 |
0 |
0 |
not defined $value and $key ne "packlist_read" and $key ne "packlist_write" |
|
552
|
0 |
0 |
0 |
$user->{'auto_inst_lib_conversion'} and $par_has_archlib |
|
637
|
0 |
0 |
1 |
-f $base_par and -r _ |
|
|
0 |
0 |
1 |
-f $base_par and -r _ and -w _ |
|
642
|
0 |
0 |
1 |
-f $_ and -r _ |
|
737
|
0 |
0 |
1 |
defined $meta_orig_file and -f $meta_orig_file |
|
738
|
0 |
0 |
1 |
defined $meta_extra_file and -f $meta_extra_file |
|
744
|
0 |
0 |
1 |
exists $yaml_functions->{'LoadFile'} and exists $yaml_functions->{'DumpFile'} |
|
826
|
0 |
0 |
0 |
-f $par and -r _ |
|
|
0 |
0 |
0 |
-f $par and -r _ and -w _ |
|
882
|
0 |
0 |
1 |
defined $dist and -r $dist |
|
933
|
0 |
0 |
3 |
$zip->read($dist) == Archive::Zip::AZ_OK() and $zip->extractTree("", "$path/") == Archive::Zip::AZ_OK() |
|
998
|
0 |
8 |
0 |
$args{'dist'} and not $args{'dist'} =~ /\.[a-zA-Z_][^.]*$/ |
|
1006
|
0 |
8 |
0 |
$args{'dist'} and $args{'dist'} =~ m[^\w+://] |
|
1037
|
0 |
0 |
0 |
not LWP::Simple::is_success($rc) and $rc != 304 |
|
1141
|
1 |
5 |
1 |
@elem && $elem[0] =~ /^$version$/o |
|
|
19 |
1 |
6 |
$e =~ /^$version$/o and not @elem && $elem[0] =~ /^$version$/o |
|
1219
|
0 |
0 |
0 |
!defined($suffix) || $suffix eq '' and $archname |
|
|
0 |
0 |
0 |
!defined($suffix) || $suffix eq '' and $archname and $perlversion |
|
1277
|
0 |
0 |
0 |
defined $dist and -r $dist |
|
1295
|
0 |
0 |
0 |
-f $_ and not /^\.exists$/ |
|
1353
|
0 |
0 |
12 |
defined $subref and ref $subref eq "CODE" |
|
1377
|
0 |
0 |
1 |
eval {
do {
require Archive::Zip;
1
}
} and $Archive::Zip::VERSION ne "1.28" |
|
|
0 |
0 |
0 |
_MI_can_run("zip") and _MI_can_run("unzip") |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
153
|
0 |
1 |
0 |
$args{'suffix'} || "$Config::Config{'archname'}-$Config::Config{'version'}.par" |
|
196
|
0 |
1 |
0 |
$name ||= $1 |
|
200
|
0 |
1 |
0 |
$version ||= $1 |
|
211
|
0 |
0 |
0 |
$name ||= $1 |
|
214
|
0 |
0 |
0 |
$version ||= $1 |
|
263
|
0 |
0 |
0 |
$dist ||= "File::Spec"->catfile($cwd, $file) |
|
440
|
0 |
0 |
0 |
not defined $name or $name eq "" |
|
467
|
0 |
0 |
0 |
$args{'packlist_read'} || "$Config::Config{'installsitearch'}/auto/$name/.packlist" |
|
920
|
3 |
0 |
0 |
$args{'path'} || 'File::Spec'->curdir |
|
980
|
0 |
8 |
0 |
$args{'name'} ||= $args{'dist'} |
|
1001
|
0 |
0 |
0 |
$suffix ||= "$Config::Config{'archname'}-$Config::Config{'version'}.par" |
|
1025
|
0 |
0 |
0 |
$ENV{'PAR_TEMP'} ||= "File::Spec"->catdir("File::Spec"->tmpdir, "par") |
|
1057
|
0 |
0 |
0 |
$action ||= -e "SIGNATURE" ? "verify" : "sign" |
|
1217
|
0 |
0 |
0 |
$name ||= $parse_name |
|
1218
|
0 |
0 |
0 |
$version ||= $parse_version |
|
1219
|
0 |
0 |
0 |
!defined($suffix) || $suffix eq '' |
|
1223
|
0 |
0 |
0 |
$suffix ||= "$Config::Config{'archname'}-$Config::Config{'version'}" |
|
1321
|
0 |
0 |
0 |
-x $_cmd or $_cmd = "MM"->maybe_command($_cmd) |
|
1325
|
0 |
0 |
0 |
-x $abs or $abs = "MM"->maybe_command($abs) |