| line |
true |
false |
branch |
|
63
|
2 |
0 |
if $^W |
|
70
|
111 |
0 |
if (defined $file) |
|
72
|
0 |
111 |
if (ref $file) { } |
|
78
|
25 |
86 |
unless ($file =~ /^\s*$/) |
|
86
|
0 |
84 |
if @_ < 1 or @_ > 2 |
|
93
|
14 |
70 |
if @_ > 0 |
|
116
|
39 |
45 |
if (ref $outer) |
|
144
|
0 |
0 |
if (exists $Data::Locations::{$item}) |
|
161
|
11 |
0 |
if (exists $Data::Locations::{$item}) |
|
171
|
0 |
7 |
if @_ != 1 or not ref $_[0] |
|
185
|
4 |
0 |
if ($Alive) |
|
187
|
3 |
1 |
if (${*{$location;};}{'file'} ne '') |
|
214
|
80 |
824 |
if ($item =~ /^LOCATION\d+$/) |
|
217
|
0 |
80 |
if (${*{$location;};}{'file'} ne '') |
|
228
|
0 |
35 |
if @_ < 1 or @_ > 2 or not ref $_[0] |
|
235
|
21 |
14 |
if (@_ > 0) |
|
244
|
0 |
9 |
if @_ != 1 or not ref $_[0] |
|
255
|
3 |
96 |
if $outer == $inner |
|
259
|
60 |
0 |
if (exists $Data::Locations::{$item}) |
|
262
|
17 |
43 |
if &_self_contained_($outer, $inner) |
|
270
|
0 |
164 |
if @_ < 1 or not ref $_[0] |
|
279
|
40 |
197 |
if (ref $inner) |
|
281
|
1 |
39 |
if (ref $inner ne $Class) |
|
286
|
3 |
36 |
if (&_self_contained_($outer, $inner)) { } |
|
302
|
0 |
2 |
if @_ < 2 or not ref $_[0] |
|
313
|
0 |
48 |
if @_ < 1 or not ref $_[0] |
|
329
|
402 |
34 |
if (exists ${*{$location;};}{'stack'}) { } |
|
339
|
396 |
40 |
if (@{$stack;}) { } |
|
344
|
319 |
77 |
if (exists $Data::Locations::{$which} and $index < @{*{$Data::Locations::{$which};};}) { } |
|
349
|
315 |
4 |
if (defined $item) { } |
|
351
|
44 |
271 |
if (ref $item) { } |
|
353
|
44 |
0 |
if (ref $item eq $Class) |
|
387
|
0 |
74 |
if @_ != 1 or not ref $_[0] |
|
392
|
74 |
0 |
if (defined wantarray) |
|
394
|
27 |
47 |
if (wantarray) { } |
|
407
|
0 |
23 |
if @_ != 1 or not ref $_[0] |
|
420
|
18 |
61 |
if (ref $item) { } |
|
422
|
18 |
0 |
if (ref $item eq $Class) |
|
436
|
0 |
3 |
if @_ != 2 or not ref $_[0] |
|
441
|
0 |
3 |
if (ref $callback ne 'CODE') |
|
455
|
15 |
59 |
if (ref $item) { } |
|
457
|
15 |
0 |
if (ref $item eq $Class) |
|
471
|
0 |
6 |
if @_ < 1 or @_ > 2 or not ref $_[0] |
|
480
|
1 |
5 |
if @_ > 0 |
|
483
|
1 |
5 |
if ($file =~ /^\s*$/) |
|
488
|
4 |
1 |
unless ($file =~ /^\s*[>\|+]/) |
|
492
|
0 |
5 |
unless (open FILEHANDLE, $file) |
|
498
|
0 |
5 |
unless (close FILEHANDLE) |
|
508
|
0 |
14 |
if @_ != 2 or not ref $_[0] |