| line |
true |
false |
branch |
|
49
|
0 |
18 |
unless open my $fh, '<:raw', $file |
|
73
|
1 |
21 |
$$changes{'next_token'} ? : |
|
81
|
77 |
269 |
if ($l =~ /$version_line_re/) |
|
87
|
74 |
3 |
if ($n) |
|
89
|
5 |
69 |
if ($n =~ /^($UNKNOWN_VALS)/i) { } |
|
|
3 |
66 |
elsif ($n =~ /^(\D{3}\s+(\D{3})\s+(\d{1,2})\s+([\d:]+)?\D*(\d{4}))/) { } |
|
|
1 |
65 |
elsif ($n =~ /^(\D{3}, (\d{1,2}) (\D{3}) (\d{4}) (\d\d:\d\d:\d\d) ([+-])(\d{2})(\d{2}))/) { } |
|
|
2 |
63 |
elsif ($n =~ m[^((\d{4}-\d\d-\d\d)\s+(\d\d:\d\d(?::\d\d)?))(?:\s+[A-Za-z]+/[A-Za-z_-]+)]) { } |
|
|
62 |
1 |
elsif ($n =~ /^($W3CDTF_REGEX)/) { } |
|
98
|
2 |
1 |
if ($4) { } |
|
140
|
2 |
58 |
if length $d == 16 or length $d == 19 or $d =~ /\.\d+$/ |
|
147
|
4 |
73 |
unless length $d |
|
148
|
72 |
5 |
unless length $n |
|
163
|
17 |
252 |
if ($l =~ /^\s+\[\s*([^\[\]]+?)\s*\]\s*$/) |
|
169
|
68 |
184 |
unless defined $ingroup |
|
171
|
119 |
133 |
if $l =~ /^\s*$/ |
|
173
|
69 |
64 |
unless (defined $indent) |
|
174
|
68 |
1 |
$l =~ /^(\s+)/ ? : |
|
183
|
0 |
133 |
if ($l =~ /^\s/ and not @{$releases[-1]->changes($ingroup);}) |
|
190
|
21 |
112 |
if ($l =~ /^\s/) { } |
|
213
|
23 |
32 |
if (@_) |
|
225
|
25 |
36 |
if (@_) |
|
237
|
0 |
160 |
unless (eval {
do {
(my $v = $a->version) =~ s/-TRIAL$//;
'version'->parse($v)
}
} || 0) <=> (eval {
do {
(my $v = $b->version) =~ s/-TRIAL$//;
'version'->parse($v)
}
} || 0) |
|
248
|
1 |
2 |
unless $a->version =~ /$next_token/ - $b->version =~ /$next_token/ |
|
252
|
2 |
59 |
$next_token ? : |
|
261
|
77 |
9 |
&Scalar::Util::blessed($release) ? : |
|
276
|
0 |
4 |
unless exists $$self{'releases'}{$version} |
|
291
|
1 |
10 |
if $args{'group_sort'} |
|
295
|
6 |
5 |
if $self->preamble |
|
298
|
11 |
0 |
unless $args{'reverse'} |