Branch Coverage

blib/lib/Data/Password/Meter.pm
Criterion Covered Total %
branch 49 58 84.4


line true false branch
39 1 1 $_[0] && $_[0] =~ /^\d+$/ ? :
47 4 21 unless $self->[2]
49 15 6 if @$self == 3
52 6 0 if (@$self == 4)
53 4 2 if $self->[2] == 4 and $self->[3] == 5
54 2 0 if $self->[2] == 4 and $self->[3] == 6
55 0 0 if $self->[2] == 5 and $self->[3] == 6
64 10 12 $_[1] ? :
77 39 1 unless $_[0]
78 1 0 if $_[0] =~ /^\d+$/
90 1 14 unless ($pwd)
96 1 13 if ($pwd =~ /[\a\f\v\n\r\t]/)
102 2 11 if ($pwd =~ /^(.)\1*$/)
113 2 9 if ($pwd_l < 5) { }
0 9 elsif ($pwd_l > 4 and $pwd_l < 8) { }
7 2 elsif ($pwd_l > 7 and $pwd_l < 16) { }
2 0 elsif ($pwd_l > 15) { }
130 5 6 if ($pwd_l > 8) { }
141 11 0 if ($pwd =~ /[a-z]/)
146 6 5 if ($pwd =~ /[A-Z]/)
152 2 9 if ($pwd =~ /\d/)
156 1 1 if ($pwd =~ /(?:.*\d){3}/)
163 8 3 if ($pwd =~ /[^a-zA-Z0-9]/) { }
167 5 3 if ($pwd =~ /(?:.*[^a-zA-Z0-9]){2}/)
177 4 7 unless ($score > $self->threshold - 6)
183 5 2 if ($pwd =~ /(?:[a-z].*[A-Z])|(?:[A-Z].*[a-z])/)
188 2 5 if ($pwd =~ /(?:[a-zA-Z].*\d)|(?:\d.*[a-zA-Z])/)
193 7 0 if ($pwd =~ /(?:[a-zA-Z0-9].*[^a-zA-Z0-9])|(?:[^a-zA-Z0-9].*[a-zA-Z0-9])/)
201 3 4 if $score < $self->threshold