| line |
true |
false |
branch |
|
132
|
2065 |
333 |
unless @_ |
|
139
|
3049 |
375 |
unless @_ |
|
145
|
0 |
329 |
scalar %{(shift())->meta;} ? : |
|
150
|
649 |
671 |
unless @_ |
|
157
|
227 |
294 |
unless @_ |
|
164
|
214 |
294 |
unless @_ |
|
171
|
227 |
295 |
unless @_ |
|
232
|
0 |
329 |
if $self->has_meta |
|
239
|
4 |
325 |
UNIVERSAL::isa($raw, 'UNIVERSAL') ? : |
|
241
|
4 |
325 |
if ($meta->{'is_object'}) { } |
|
249
|
299 |
30 |
if ($meta->{'is_scalar'}) { } |
|
|
7 |
23 |
elsif ($meta->{'is_array'}) { } |
|
|
13 |
10 |
elsif ($meta->{'is_hash'}) { } |
|
252
|
66 |
233 |
$$raw =~ /\n/ ? : |
|
255
|
233 |
66 |
if (not $meta->{'has_newlines'} and $meta->{'length'} < 1024) |
|
257
|
229 |
4 |
-e $source ? : |
|
258
|
229 |
4 |
if ($file->{'exists'}) |
|
263
|
0 |
229 |
-z _ ? : |
|
265
|
228 |
1 |
-T _ ? : |
|
266
|
1 |
228 |
-B _ ? : |
|
267
|
229 |
0 |
-r _ ? : |
|
268
|
229 |
0 |
-w _ ? : |
|
269
|
5 |
224 |
-x _ ? : |
|
270
|
0 |
229 |
-u _ ? : |
|
271
|
0 |
229 |
-g _ ? : |
|
272
|
0 |
229 |
-k _ ? : |
|
274
|
228 |
1 |
-f _ ? : |
|
275
|
1 |
228 |
-d _ ? : |
|
279
|
1 |
228 |
-l $source ? : |
|
280
|
1 |
228 |
if ($file->{'is_symlink'}) |
|
286
|
687 |
0 |
defined $_ ? : |
|
289
|
20 |
209 |
if $file->{'ext'} |
|
291
|
228 |
0 |
if (not $file->{'is_dir'} and $file->{'read'}) |
|
293
|
0 |
228 |
if (my $e = $@) |
|
327
|
0 |
117 |
unless open my $fh, '<', $file |
|
331
|
0 |
117 |
unless defined $got |
|
332
|
117 |
0 |
if $buf =~ /(.*)/ |
|
339
|
117 |
111 |
unless exists $shebang_for{$file} |