line |
true |
false |
branch |
28
|
0 |
0 |
if ($elt =~ /^(\d+)-(\d+)$/) { }
|
48
|
2 |
119 |
if $line eq "\n"
|
50
|
0 |
119 |
if ($line eq "--\n")
|
53
|
0 |
0 |
if ($e or $c or @$o)
|
61
|
119 |
0 |
if ($state != -1) { }
|
63
|
0 |
119 |
if ($state == 0 and $line =~ /^#/)
|
74
|
15 |
104 |
if ($state <= 1 and $line =~ /^($field:) ?$/s)
|
79
|
15 |
0 |
unless exists $k->{$f}
|
87
|
104 |
0 |
if ($state <= 1 and $line =~ /^($field:) (.*)?$/s)
|
103
|
8 |
96 |
if ($f eq 'Content') { }
|
111
|
104 |
0 |
unless exists $k->{$f}
|
119
|
0 |
0 |
unless ($line =~ /^#/)
|
124
|
0 |
0 |
$line =~ /^>>/ ? :
|
136
|
9 |
0 |
if $e or $c or @$o
|
139
|
0 |
119 |
if ref $k->{$l} eq "ARRAY"
|
154
|
0 |
6 |
if ($c)
|
158
|
0 |
6 |
if ($e) { }
|
|
6 |
0 |
elsif ($o) { }
|
168
|
0 |
10 |
ref $k->{$key} eq 'ARRAY' ? :
|
171
|
0 |
10 |
if length $sp > 16
|
174
|
0 |
10 |
if ($v =~ /\n/) { }
|
|
0 |
10 |
elsif ($line and length($line) + length($v) - rindex($line, "\n") >= 70) { }
|
178
|
0 |
0 |
if ($line) { }
|
|
0 |
0 |
elsif (@lines and not $lines[-1] =~ /\n\n$/) { }
|
193
|
0 |
10 |
$line ? :
|
197
|
0 |
10 |
unless @values
|
198
|
10 |
0 |
if ($line)
|
199
|
0 |
10 |
if ($line =~ /\n/)
|
200
|
0 |
0 |
if (@lines and not $lines[-1] =~ /\n\n$/)
|
223
|
0 |
119 |
ref $val eq 'ARRAY' ? :
|
225
|
0 |
119 |
if (exists $hash->{$key}) { }
|
226
|
0 |
0 |
unless (ref $hash->{$key} eq "ARRAY")
|
227
|
0 |
0 |
$hash->{$key} ne '' ? :
|
242
|
0 |
0 |
ref $val eq 'ARRAY' ? :
|