Branch Coverage

blib/lib/SSN/Validate.pm
Criterion Covered Total %
branch 50 54 92.5


line true false branch
101 1 83 if (length $ssn != 9)
111 29 54 if (in_array($ssn, $$self{'AD_SSN'}))
123 9 45 if (not $$self{'BAD_COMBO_IGNORE'} and in_array($area . $group, $$self{'BAD_COMBO'}))
128 6 39 if (not $self->valid_area($area)) { }
6 33 elsif (not $self->valid_group($ssn)) { }
1 32 elsif (not $self->valid_serial($serial)) { }
149 0 155 if length $area > 3
151 135 20 exists $$self{'SSN'}{$area}{'valid'} ? :
160 45 3 if (length $group > 2)
163 3 42 if $group eq '00'
165 1 41 if (not $$self{'BAD_COMBO_IGNORE'} and in_array($area . $group, $$self{'BAD_COMBO'}))
170 36 5 if (defined $$self{'SSN'}{$area}{'highgroup'}) { }
4 1 elsif (defined $$self{'SSN'}{$area}{'group_range'}) { }
172 8 28 if ($$self{'BAD_COMBO_IGNORE'} and in_array($area . $group, $$self{'BAD_COMBO'}))
187 1 2 $group eq '00' ? :
193 1 32 $serial eq '0000' ? :
201 87 10 if ($self->valid_area($area)) { }
202 87 0 defined $$self{'SSN'}{$area}{'state'} ? :
215 0 0 if ($self->valid_area($area)) { }
229 28 1787 if (sprintf('%02d', $$self{'GROUP_ORDER'}[$i]) == sprintf('%02d', $highgroup))
244 74 4741 if $hay == $needle
259 80 8360 unless /^[0-9]{3}/
261 7570 790 if (/^(\d{3}),(\d{2})\-*(\d*)\D*$/)
262 7550 20 if (not defined $3 or $3 eq '') { }
266 10 10 if (defined $by_ssn{$1}{'group_range'}) { }
288 80 710 if $description =~ /not yet issued/i
294 610 100 if (defined $max) { }