| line |
true |
false |
branch |
|
15
|
1 |
14 |
unless open my $in, '<:encoding(utf8)', $file |
|
19
|
0 |
14 |
unless close $in |
|
33
|
6 |
15 |
if ($options{'scalar'}) { } |
|
48
|
112 |
42 |
if ($mode ne 'multi-line') |
|
53
|
6 |
106 |
if (/^%%\s*([^:]+):\s*$/) |
|
63
|
42 |
106 |
if ($mode eq 'multi-line') |
|
64
|
6 |
36 |
if (/^%%\s*$/) |
|
66
|
6 |
0 |
if ($row->{$mkey}) |
|
78
|
2 |
104 |
if (/^\s*#.*/) |
|
84
|
76 |
28 |
if (/([^:]+):\s*(.*?)\s*$/) |
|
95
|
1 |
75 |
if ($row->{$key}) |
|
103
|
27 |
1 |
if (/^\s*$/) |
|
107
|
23 |
4 |
if (keys %$row > 0) |
|
114
|
1 |
0 |
if ($options{'scalar'}) |
|
121
|
8 |
11 |
if (keys %$last_row == 0) |
|
124
|
2 |
17 |
unless wantarray |
|
139
|
2 |
10 |
unless ($ekey) |
|
143
|
2 |
8 |
if ($hash{$ekey}) |
|
149
|
1 |
3 |
if (wantarray) { } |
|
164
|
1 |
6 |
if (ref $list ne 'ARRAY') |
|
170
|
1 |
6 |
if (ref $i ne 'HASH') |
|
175
|
1 |
11 |
if (ref $i->{$k}) |
|
186
|
2 |
9 |
if (length($v) + length($k) > $maxlen or $v =~ /\n/) { } |
|
196
|
2 |
2 |
if ($file) { } |
|
|
1 |
1 |
elsif (defined wantarray) { } |
|
197
|
0 |
2 |
unless open my $out, '>:encoding(utf8)', $file |
|
199
|
0 |
2 |
unless close $out |