| line |
true |
false |
branch |
|
17
|
3 |
1 |
if defined $sub |
|
55
|
0 |
5 |
if (not scalar @{$l;}) { } |
|
62
|
1 |
1 |
scalar @{$l;} > $idx ? : |
|
|
2 |
3 |
$idx >= 0 ? : |
|
75
|
2 |
27 |
if ($INC[$i] eq $this) |
|
100
|
1 |
26 |
if $$this{'disabled'} |
|
103
|
3 |
23 |
unless (ref $s) |
|
105
|
1 |
2 |
unless defined &{$s;} |
|
110
|
5 |
20 |
if (defined $ret) |
|
111
|
4 |
1 |
unless (_is_handle($ret)) |
|
113
|
1 |
3 |
if (not $ret =~ /\n/ and -r $ret) { } |
|
116
|
0 |
1 |
unless open $ret, "<$file" |
|
122
|
1 |
2 |
ref $code ? : |
|
|
0 |
3 |
unless open $ret, '<', ref $code ? $code : \$code |
|
136
|
2 |
3 |
ref $h ? : |
|
160
|
0 |
2 |
if ('File::Spec'->file_name_is_absolute($filename)) { } |
|
165
|
2 |
21 |
if ref $I |
|
167
|
1 |
20 |
if (-r 'File::Spec'->catfile($I, $filename)) |
|
183
|
2 |
4 |
unless defined $file |
|
185
|
2 |
2 |
if ($opts{'open'} or $opts{'slurp'}) |
|
187
|
0 |
2 |
unless defined $fh |
|
189
|
1 |
1 |
if ($opts{'slurp'}) |