| line |
true |
false |
branch |
|
15
|
1 |
13 |
unless open my $in, '<:encoding(utf8)', $file |
|
19
|
0 |
13 |
unless close $in |
|
33
|
6 |
14 |
if ($options{'scalar'}) { } |
|
48
|
100 |
42 |
if ($mode ne 'multi-line') |
|
53
|
6 |
94 |
if (/^%%\s*([^:]+):\s*$/) |
|
63
|
42 |
94 |
if ($mode eq 'multi-line') |
|
64
|
6 |
36 |
if (/^%%\s*$/) |
|
66
|
6 |
0 |
if ($row->{$mkey}) |
|
78
|
2 |
92 |
if (/^\s*#.*/) |
|
84
|
67 |
25 |
if (/([^:]+):\s*(.*?)\s*$/) |
|
95
|
1 |
66 |
if ($row->{$key}) |
|
103
|
24 |
1 |
if (/^\s*$/) |
|
107
|
20 |
4 |
if (keys %$row > 0) |
|
114
|
1 |
0 |
if ($options{'scalar'}) |
|
121
|
7 |
11 |
if (keys %$last_row == 0) |
|
124
|
2 |
16 |
unless wantarray |
|
137
|
2 |
7 |
unless ($ekey) |
|
141
|
2 |
5 |
if ($hash{$ekey}) |
|
157
|
1 |
6 |
if (ref $list ne 'ARRAY') |
|
163
|
1 |
6 |
if (ref $i ne 'HASH') |
|
168
|
1 |
11 |
if (ref $i->{$k}) |
|
179
|
2 |
9 |
if (length($v) + length($k) > $maxlen or $v =~ /\n/) { } |
|
189
|
2 |
2 |
if ($file) { } |
|
|
1 |
1 |
elsif (defined wantarray) { } |
|
190
|
0 |
2 |
unless open my $out, '>:encoding(utf8)', $file |
|
192
|
0 |
2 |
unless close $out |