| line |
true |
false |
branch |
|
31
|
30 |
6 |
unless ($splitsep) |
|
32
|
30 |
6 |
unless ($regcmnt) |
|
40
|
5 |
31 |
unless $outfile |
|
53
|
10 |
26 |
if ($lock and $outfile) |
|
58
|
27 |
9 |
if (-e $file) |
|
65
|
22 |
661 |
if /^\s*$/ |
|
66
|
22 |
639 |
if /^\s*$regcmnt/ |
|
68
|
126 |
513 |
if (/^\s*\[.*\]\s*$/) |
|
91
|
132 |
381 |
if ($key =~ /([\[][0-9]+[\]])$/) { } |
|
134
|
2 |
0 |
unless ($to) |
|
135
|
0 |
2 |
if ($change =~ /g$/) |
|
145
|
2 |
0 |
unless (defined $g) |
|
147
|
0 |
2 |
if ($g eq 'g') { } |
|
200
|
31 |
5 |
if ($$self{'FILE'}) |
|
211
|
10 |
21 |
if ($$self{'LOCK'}) |
|
231
|
177 |
31 |
if ($section) |
|
236
|
422 |
177 |
if (ref $value ne 'HASH') |
|
237
|
15 |
407 |
if (ref $value eq 'ARRAY') { } |
|
253
|
177 |
422 |
if (ref $value eq 'HASH') |
|
256
|
69 |
108 |
if ($depth == 0) { } |