Branch Coverage

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


line true false branch
38 1 1 $_[0] && $_[0] =~ /^\d+$/ ? :
46 4 21 unless $self->[2]
48 15 6 if @$self == 3
51 6 0 if (@$self == 4)
52 4 2 if $self->[2] == 4 and $self->[3] == 5
53 2 0 if $self->[2] == 4 and $self->[3] == 6
54 0 0 if $self->[2] == 5 and $self->[3] == 6
63 10 12 $_[1] ? :
76 39 1 unless $_[0]
77 1 0 if $_[0] =~ /^\d+$/
89 1 14 unless ($pwd)
95 1 13 if ($pwd =~ /[\a\f\v\n\r\t]/)
101 2 11 if ($pwd =~ /^(.)\1*$/)
112 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) { }
129 5 6 if ($pwd_l > 8) { }
140 11 0 if ($pwd =~ /[a-z]/)
145 6 5 if ($pwd =~ /[A-Z]/)
151 2 9 if ($pwd =~ /\d/)
155 1 1 if ($pwd =~ /(?:.*\d){3}/)
162 8 3 if ($pwd =~ /[^a-zA-Z0-9]/) { }
166 5 3 if ($pwd =~ /(?:.*[^a-zA-Z0-9]){2}/)
176 4 7 unless ($score > $self->threshold - 6)
182 5 2 if ($pwd =~ /(?:[a-z].*[A-Z])|(?:[A-Z].*[a-z])/)
187 2 5 if ($pwd =~ /(?:[a-zA-Z].*\d)|(?:\d.*[a-zA-Z])/)
192 7 0 if ($pwd =~ /(?:[a-zA-Z0-9].*[^a-zA-Z0-9])|(?:[^a-zA-Z0-9].*[a-zA-Z0-9])/)
200 3 4 if $score < $self->threshold