Branch Coverage
blib/lib/Data/Unique/Name.pm
Criterion
Covered
Total
%
branch
5
6
83.3
line
true
false
branch
26
6
4
if length $s > $l
27
8
2
if (my $n = $set->{'count'}{$s})
40
0
1
unless eval join('', readline DATA)