| line |
true |
false |
branch |
|
43
|
0 |
29 |
defined $layers ? : |
|
44
|
0 |
29 |
unless open my $fh, $mode, $file |
|
46
|
29 |
0 |
unless (defined $layers) |
|
65
|
920 |
180 |
defined $r->{$_} ? : |
|
69
|
220 |
0 |
$_->{'entries'} ? : |
|
73
|
16 |
22 |
defined $data->{'preamble'} ? : |
|
86
|
86 |
1208 |
$entry->{'entries'} ? : |
|
109
|
0 |
130 |
if (defined(my $vp = $self->version_prefix)) |
|
113
|
101 |
29 |
if (defined(my $vt = $self->version_like)) |
|
124
|
130 |
29602 |
unless length $full_line |
|
127
|
2580 |
27022 |
if ($line =~ /^(?:$version_prefix\s+)?($version_token)(?:[:;.-]?\s+(.*))?$/i) { } |
|
|
7564 |
19458 |
elsif (not @indents) { } |
|
132
|
2401 |
179 |
if (defined $note) |
|
136
|
1408 |
1172 |
defined $date ? : |
|
|
1408 |
1172 |
defined $raw_date ? : |
|
|
1296 |
1284 |
defined $note ? : |
|
154
|
3467 |
15991 |
if ($line =~ /^[-_*+~#=\s]*$/) |
|
155
|
3078 |
389 |
if @indents > 1 |
|
158
|
3467 |
0 |
if (@indents) { } |
|
174
|
115 |
15876 |
if ($line =~ /^\[\s*([^\[\]]*)\]$/) { } |
|
|
9106 |
6770 |
elsif ($line =~ /^([-*+=#]+)\s+(.*)/) { } |
|
187
|
5615 |
341 |
if (defined $indents[-1]{'text'} and not $indents[-1]{'done'} and $indent > $#indents || $indent == $#indents && (length $indents[-1]{'style'} || $indent == 1)) |
|
210
|
113 |
10263 |
if (not $nest and $indents[$indent]{'nested'}) { } |
|
|
102 |
10161 |
elsif (not $nest and $indents[$indent]{'nest'}) { } |
|
231
|
10312 |
64 |
if ($indent <= $#indents) |
|
238
|
88 |
42 |
if (length $raw_preamble) |
|
247
|
3256 |
9700 |
if $entry->{'entries'} |
|
251
|
88 |
42 |
defined $preamble ? : |
|
331
|
2401 |
0 |
if (defined $note and length $note) |
|
336
|
16 |
2385 |
if ($note =~ s/^($_UNKNOWN_DATE)//) { } |
|
|
508 |
1877 |
elsif ($note =~ s/^($_LOCALTIME_DATE)//) { } |
|
|
2 |
1875 |
elsif ($note =~ s/^($_RFC_2822_DATE)//) { } |
|
|
7 |
1868 |
elsif ($note =~ s/^($_DZIL_DATE)//) { } |
|
|
875 |
993 |
elsif ($note =~ s/^($_ISO_8601_DATE)//) { } |
|
344
|
501 |
7 |
if ($5) |
|
371
|
265 |
539 |
if length $parsed_date == 16 or length $parsed_date == 19 or $parsed_date =~ /\.\d+$/ |