| line |
true |
false |
branch |
|
157
|
0 |
0 |
if ($^O ne 'VMS') |
|
158
|
0 |
0 |
unless $secure_perl_path =~ /$Perl::LibExtractor::Config{'_exe'}$/iu |
|
171
|
0 |
0 |
$case_tolerant ? : |
|
184
|
0 |
0 |
unless open my $fh, '<:perlio', $path |
|
193
|
0 |
0 |
unless s/$pfxmatch//u and exists $$lib{$_} |
|
216
|
0 |
0 |
length $dir ? : |
|
219
|
0 |
0 |
unless opendir my $fh, "$root/$dir" |
|
223
|
0 |
0 |
if (-d "$root/$dir/$_/.") { } |
|
|
0 |
0 |
elsif ($_ eq '.packlist' and $pfx =~ m[^auto/]u) { } |
|
|
0 |
0 |
elsif (/\.bs$/u and $pfx =~ m[^auto/]u and not -s "$root/$dir/$_") { } |
|
324
|
0 |
0 |
unless $info[0] = $$lib{$_} |
|
327
|
0 |
0 |
if ($$self{'use_packlist'} and exists $$self{'packlist'}{$_}) { } |
|
|
0 |
0 |
elsif (/^(.*)\.pm$/u) { } |
|
344
|
0 |
0 |
unless $auto =~ m[/([^/]+)/$]u |
|
347
|
0 |
0 |
if (exists $$lib{$auto}) |
|
352
|
0 |
0 |
if (my $src = $$lib{$so}) |
|
359
|
0 |
0 |
if (my $src = $$lib{$ix}) |
|
363
|
0 |
0 |
unless open my $fh, '<:perlio', $src |
|
369
|
0 |
0 |
if (/^\s*sub\s+ ([^[:space:];]+) \s* (?:\([^)]*\))? \s*;?\s*$/ux) { } |
|
|
0 |
0 |
elsif (/^\s*package\s+([^[:space:];]+)\s*;?\s*$/u) { } |
|
|
0 |
0 |
elsif (/^\s*(?:#|1?\s*;?\s*$)/u) { } |
|
371
|
0 |
0 |
unless my $src = $$lib{$al} |
|
391
|
0 |
0 |
if (exists $$self{'extra_deps'}{$_}) |
|
418
|
0 |
0 |
unless open my $fh, '>:perlio', "$dir/eval" |
|
432
|
0 |
0 |
if system _perl_path, '-c', "$dir/eval" |
|
436
|
0 |
0 |
unless open my $fh, '<:perlio', "$dir/out" |
|
480
|
0 |
0 |
unless $$self{'add_mod'}{$_}++ |
|
500
|
0 |
0 |
unless $$self{'add_require'}{$_}++ |
|
525
|
0 |
0 |
if (open my $fh, '<:perlio', "$dir/$exe") |
|
526
|
0 |
0 |
if (-f $fh) |
|
529
|
0 |
0 |
if exists $$self{'trace_check'} |
|
601
|
0 |
0 |
if ($Perl::LibExtractor::Config{'useshrplib'} eq 'true') |
|
604
|
0 |
0 |
if ($^O eq 'cygwin') { } |
|
|
0 |
0 |
elsif ($^O eq 'MSWin32') { } |
|
615
|
0 |
0 |
if length $libpath and -e $libpath |
|
656
|
0 |
0 |
if $] >= 5.01 |
|
761
|
0 |
0 |
unless (s[^\\/][]u) |
|
833
|
0 |
0 |
unless $pat =~ s/^([+\-])//u |
|
840
|
0 |
0 |
if ($inc) { } |