line |
true |
false |
branch |
80
|
327 |
0 |
if (@_) |
83
|
12 |
315 |
if (ref $o eq 'HASH') { } |
|
12 |
303 |
elsif (ref $o eq 'ARRAY') { } |
|
0 |
303 |
elsif (ref $o eq 'SCALAR') { } |
|
259 |
44 |
elsif (ref $o) { } |
84
|
8 |
4 |
if (not $seen{$o}) { } |
95
|
12 |
0 |
if (not $seen{$o}) { } |
114
|
42 |
2 |
if defined $o |
134
|
10 |
99 |
unless $l |
135
|
33 |
66 |
if $l < 0 |
149
|
0 |
0 |
if (@_) |
267
|
0 |
0 |
if $key eq '=' |
311
|
12 |
90 |
if $$self{'Comment'} |
333
|
60 |
20 |
unless $$self{'Comment'} |
349
|
0 |
140 |
unless $c |
350
|
140 |
0 |
if (ref $c) { } |
351
|
140 |
0 |
if (ref $c eq 'ARRAY') { } |
374
|
0 |
0 |
unless $$self{'Comment'} |
375
|
0 |
0 |
unless $c |
376
|
0 |
0 |
if (ref $c) { } |
377
|
0 |
0 |
if (ref $c eq 'ARRAY') { } |
451
|
12 |
90 |
if ($self->isReference) |
452
|
12 |
0 |
if ($self->valid) { } |
460
|
12 |
90 |
if ($OBJ{$self}) |
478
|
180 |
24 |
unless $$self{'Comment'} |
493
|
30 |
168 |
if ($self->isReference) |
494
|
30 |
0 |
if ($self->valid) { } |
501
|
30 |
168 |
if ($OBJ{$self}) |
527
|
1 |
1 |
if (not ref $file) { } |
|
1 |
0 |
elsif (ref $file eq 'SCALAR') { } |
|
0 |
0 |
elsif (ref $file eq 'GLOB') { } |
528
|
0 |
1 |
unless open $fh, '>:raw:encoding(UTF-16)', $file |
532
|
0 |
1 |
unless open $fh, '>:utf8', $file |
567
|
2 |
2 |
if (not ref $file) { } |
|
2 |
0 |
elsif (ref $file eq 'SCALAR') { } |
|
0 |
0 |
elsif (ref $file eq 'GLOB') { } |
568
|
0 |
2 |
unless open $fh, '>:raw', $file |
571
|
0 |
2 |
unless open $fh, '>', $file |