| line |
true |
false |
branch |
|
45
|
0 |
32 |
unless open my $fh, '<:raw', $file |
|
46
|
6 |
26 |
if $lock |
|
61
|
0 |
15 |
if (not defined $$freeze) { } |
|
66
|
7 |
8 |
if ($lock) { } |
|
67
|
0 |
7 |
unless open $fh, '>>:raw', $file |
|
68
|
7 |
0 |
if $lock |
|
73
|
0 |
8 |
unless open $fh, '>:raw', $file |
|
75
|
15 |
0 |
if defined $$freeze |
|
111
|
774 |
673 |
unless defined $addr |
|
112
|
364 |
309 |
if (&reftype($value) eq 'ARRAY') { } |
|
|
309 |
0 |
elsif (&reftype($value) eq 'HASH') { } |
|
114
|
96 |
268 |
if exists $obj_addr->{$addr} |
|
121
|
78 |
231 |
if exists $obj_addr->{$addr} |
|
134
|
855 |
726 |
unless &refaddr($ref) |
|
136
|
399 |
327 |
if (&reftype($ref) eq 'ARRAY') { } |
|
|
327 |
0 |
elsif (&reftype($ref) eq 'HASH') { } |