line |
true |
false |
branch |
15
|
1 |
9 |
unless open my $in, '<:encoding(utf8)', $file |
19
|
0 |
9 |
unless close $in |
33
|
6 |
10 |
if ($options{'scalar'}) { } |
51
|
5 |
97 |
if (/^%%\s*([^:]+):\s*$/) |
60
|
38 |
59 |
if ($mode eq 'multi-line') |
61
|
5 |
33 |
if (/^%%\s*$/) { } |
63
|
5 |
0 |
if ($row->{$mkey}) |
76
|
2 |
57 |
if (/^\s*#.*/) { } |
|
41 |
16 |
elsif (/([^:]+):\s*(.*?)\s*$/) { } |
|
15 |
1 |
elsif (/^\s*$/) { } |
93
|
1 |
40 |
if ($row->{$key}) |
104
|
11 |
4 |
if (keys %$row > 0) |
112
|
1 |
0 |
if ($options{'scalar'}) |
120
|
4 |
10 |
if (keys %$last_row == 0) |
123
|
2 |
12 |
unless wantarray |
134
|
1 |
5 |
if (ref $list ne 'ARRAY') |
140
|
1 |
5 |
if (ref $i ne 'HASH') |
145
|
1 |
10 |
if (ref $i->{$k}) |
156
|
2 |
8 |
if (length($v) + length($k) > $maxlen or $v =~ /\n/) { } |
166
|
2 |
1 |
if ($file) { } |
|
1 |
0 |
elsif (defined wantarray) { } |
167
|
0 |
2 |
unless open my $out, '>:encoding(utf8)', $file |
169
|
0 |
2 |
unless close $out |