Branch Coverage

lib/Package/Abbreviate.pm
Criterion Covered Total %
branch 26 30 86.6


line true false branch
12 0 18 unless $max and $max =~ /^\d+$/
14 0 18 unless $opts
20 14 4 if @packages == 1
28 2 6 if $seen{$_}++
30 2 2 if ($num_of_dupes)
33 1 3 if $seen{$_}++
35 1 1 if $num_of_dupes
44 4 18 unless $excess > 0
50 0 36 if $part =~ /^[a-z]/
52 8 28 unless $excess > 0
54 9 1 if ($$self{'eager'})
57 2 7 if ($n < @parts - 1) { }
61 2 5 if ($excess > 0) { }
69 2 8 if length $abbreviation > $max
76 3 0 if $$self{'croak'}