Branch Coverage

blib/lib/CPAN/Changes.pm
Criterion Covered Total %
branch 55 60 91.6


line true false branch
49 0 18 unless open my $fh, '<:raw', $file
73 1 21 $$changes{'next_token'} ? :
81 78 273 if ($l =~ /$version_line_re/)
87 75 3 if ($n)
89 5 70 if ($n =~ /^($UNKNOWN_VALS)/i) { }
3 67 elsif ($n =~ /^(\D{3}\s+(\D{3})\s+(\d{1,2})\s+([\d:]+)?\D*(\d{4}))/) { }
1 66 elsif ($n =~ /^(\D{3}, (\d{1,2}) (\D{3}) (\d{4}) (\d\d:\d\d:\d\d) ([+-])(\d{2})(\d{2}))/) { }
2 64 elsif ($n =~ m[^((\d{4}-\d\d-\d\d)\s+(\d\d:\d\d(?::\d\d)?))(?:\s+[A-Za-z]+/[A-Za-z_-]+)]) { }
63 1 elsif ($n =~ /^($W3CDTF_REGEX)/) { }
98 2 1 if ($4) { }
140 2 59 if length $d == 16 or length $d == 19 or $d =~ /\.\d+$/
147 4 74 unless length $d
148 73 5 unless length $n
163 17 256 if ($l =~ /^\s+\[\s*([^\[\]]+?)\s*\]\s*$/)
169 69 187 unless defined $ingroup
171 120 136 if $l =~ /^\s*$/
173 70 66 unless (defined $indent)
174 69 1 $l =~ /^(\s+)/ ? :
183 0 136 if ($l =~ /^\s/ and not @{$releases[-1]->changes($ingroup);})
190 22 114 if ($l =~ /^\s/) { }
213 23 32 if (@_)
225 25 36 if (@_)
237 0 174 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 78 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'}