Branch Coverage

lib/Acme/CPANAuthors/Utils/Packages.pm
Criterion Covered Total %
branch 13 20 65.0


line true false branch
28 18 18 unless ($done_preambles)
29 2 16 if ($line =~ /^\s*$/) { }
16 0 elsif (my($key, $value) = $line =~ /^([^:]+):\s*(.*)/) { }
59 4 14 if $dist
74 0 14 unless defined $dist->version and $dist->dist
79 12 2 unless ($latest)
89 2 0 if ($distv and $latestv) { }
90 0 2 if ($distv > $latestv)
96 0 0 if ($dist->version > $latest->version)
126 0 1 unless (shift())->{'packages'}