| line |
true |
false |
branch |
|
18
|
3 |
0 |
"$]" >= 5.008 ? : |
|
26
|
3 |
0 |
exists &Config::non_bincompat_options ? : |
|
44
|
0 |
18 |
if @_ |
|
52
|
0 |
0 |
if @_ |
|
60
|
18 |
65 |
if (@_ == 1 and ref $_[-1]) { } |
|
|
65 |
0 |
elsif (@_ % 2 == 0) { } |
|
72
|
0 |
83 |
if exists $options{'found'} and $options{'found'} eq 1 |
|
74
|
19 |
64 |
unless exists $options{'pmc'} |
|
76
|
83 |
0 |
unless exists $options{'open'} |
|
78
|
19 |
64 |
unless exists $options{'abort_on_eacces'} |
|
80
|
83 |
0 |
unless exists $options{'check_hooks_for_nonsearchable'} |
|
106
|
16 |
54 |
$file =~ m[^\.\.?/] ? : |
|
|
0 |
70 |
'File::Spec'->file_name_is_absolute($file) ? : |
|
117
|
17 |
66 |
if (my $found = $self->{'found'}) |
|
118
|
17 |
0 |
if (defined(my $full = $found->{$file})) |
|
119
|
1 |
16 |
length ref $full ? : |
|
121
|
13 |
4 |
if $open |
|
126
|
83 |
0 |
unless ($all) |
|
127
|
13 |
70 |
if @found |
|
129
|
0 |
70 |
if $@ |
|
134
|
16 |
54 |
unless ($searchable) |
|
136
|
0 |
16 |
if ($all) { } |
|
|
12 |
4 |
elsif ($open) { } |
|
150
|
0 |
75 |
unless ($searchable) |
|
152
|
0 |
0 |
unless $self->{'check_hooks_for_nonsearchable'} |
|
154
|
0 |
0 |
unless length ref $inc |
|
157
|
41 |
34 |
if (not length ref $inc) { } |
|
166
|
42 |
21 |
if $open |
|
169
|
75 |
0 |
unless ($all) |
|
170
|
42 |
33 |
if @found |
|
172
|
12 |
21 |
if $@ |
|
176
|
0 |
0 |
unless $all |
|
183
|
16 |
57 |
unless defined $file |
|
185
|
49 |
24 |
$self->{'pmc'} && $file =~ /\.pm\z/ ? : |
|
190
|
73 |
25 |
if (-e $try) |
|
192
|
24 |
49 |
if -d _ or -b _ |
|
193
|
49 |
0 |
if (CORE::open my $fh, '<:', $try) |
|
196
|
49 |
0 |
$self->{'open'} ? : |
|
|
25 |
24 |
defined $inc ? : |
|
206
|
0 |
25 |
if $self->{'abort_on_eacces'} and $! == 13 and not $pmc |
|
221
|
6 |
25 |
ref $inc eq 'ARRAY' ? : |
|
|
4 |
31 |
defined &Scalar::Util::blessed($inc) ? : |
|
227
|
3 |
20 |
unless length ref $cb[0] |
|
236
|
0 |
20 |
if (&reftype($cb[0]) eq 'SCALAR') |
|
240
|
6 |
14 |
if ((&reftype($cb[0]) || '') eq 'GLOB' and &openhandle($cb[0])) |
|
244
|
12 |
8 |
if ((&reftype($cb[0]) || '') eq 'CODE') { } |
|
|
2 |
6 |
elsif (not defined $fh || defined $prefix) { } |
|
247
|
0 |
12 |
@cb > 1 ? : |
|
252
|
0 |
18 |
defined $prefix ? : |
|
|
6 |
12 |
defined $fh ? : |
|
|
12 |
6 |
defined $cb ? : |
|
|
0 |
18 |
defined $cb_options ? : |
|
276
|
55 |
12 |
if (not exists $opts{'module'} and $opts{'filename'} and $opts{'filename'} =~ m[\A(\w+(?:/\w+)?)\.pm\z]) |
|
294
|
0 |
0 |
!$_[0]{'disk_file'} ? : |
|
296
|
0 |
0 |
unless open my $fh, '<:', $_[0]{'disk_file'} |
|
304
|
0 |
6 |
if exists $self->{'content'} |
|
307
|
0 |
6 |
defined $self->{'prefix'} ? : |
|
308
|
6 |
0 |
if ($fh and not $cb) |
|
312
|
0 |
6 |
if ($cb) |
|
313
|
0 |
0 |
unless $self->read_callback_options |
|
315
|
0 |
0 |
$fh ? : |
|
316
|
0 |
0 |
unless defined $_ |
|
320
|
0 |
0 |
unless &$cb(0, @params) |
|
330
|
0 |
0 |
if ($fh and not $self->read_callback and -f $fh) |
|
331
|
0 |
0 |
unless open my $dup, '<&', $fh |