| line |
true |
false |
branch |
|
132
|
2048 |
330 |
unless @_ |
|
139
|
3019 |
372 |
unless @_ |
|
145
|
0 |
326 |
scalar %{(shift())->meta;} ? : |
|
150
|
641 |
665 |
unless @_ |
|
157
|
225 |
292 |
unless @_ |
|
164
|
212 |
292 |
unless @_ |
|
171
|
225 |
293 |
unless @_ |
|
232
|
0 |
326 |
if $self->has_meta |
|
239
|
4 |
322 |
UNIVERSAL::isa($raw, 'UNIVERSAL') ? : |
|
241
|
4 |
322 |
if ($meta->{'is_object'}) { } |
|
249
|
296 |
30 |
if ($meta->{'is_scalar'}) { } |
|
|
7 |
23 |
elsif ($meta->{'is_array'}) { } |
|
|
13 |
10 |
elsif ($meta->{'is_hash'}) { } |
|
252
|
66 |
230 |
$$raw =~ /\n/ ? : |
|
255
|
230 |
66 |
if (not $meta->{'has_newlines'} and $meta->{'length'} < 1024) |
|
257
|
226 |
4 |
-e $source ? : |
|
258
|
226 |
4 |
if ($file->{'exists'}) |
|
263
|
0 |
226 |
-z _ ? : |
|
265
|
225 |
1 |
-T _ ? : |
|
266
|
1 |
225 |
-B _ ? : |
|
267
|
226 |
0 |
-r _ ? : |
|
268
|
226 |
0 |
-w _ ? : |
|
269
|
5 |
221 |
-x _ ? : |
|
270
|
0 |
226 |
-u _ ? : |
|
271
|
0 |
226 |
-g _ ? : |
|
272
|
0 |
226 |
-k _ ? : |
|
274
|
225 |
1 |
-f _ ? : |
|
275
|
1 |
225 |
-d _ ? : |
|
279
|
1 |
225 |
-l $source ? : |
|
280
|
1 |
225 |
if ($file->{'is_symlink'}) |
|
286
|
678 |
0 |
defined $_ ? : |
|
289
|
19 |
207 |
if $file->{'ext'} |
|
291
|
225 |
0 |
if (not $file->{'is_dir'} and $file->{'read'}) |
|
293
|
0 |
225 |
if (my $e = $@) |
|
327
|
0 |
115 |
unless open my $fh, '<', $file |
|
331
|
0 |
115 |
unless defined $got |
|
332
|
115 |
0 |
if $buf =~ /(.*)/ |
|
339
|
115 |
110 |
unless exists $shebang_for{$file} |