Branch Coverage

blib/lib/Parse/SAMGov/Entity.pm
Criterion Covered Total %
branch 118 156 75.6


line true false branch
21 5 1 if $self->name
22 2 4 if $self->dba_name
23 6 0 if $self->DUNS
24 0 6 if $self->DUNSplus4 ne '0000'
25 6 0 if $self->CAGE
26 3 3 if $self->DODAAC
27 6 0 if $self->extract_code
28 4 2 if $self->updated
29 6 0 if $self->regn_purpose
30 5 1 if $self->regn_date
31 5 1 if $self->expiry_date
32 5 1 if $self->lastupdate_date
33 5 1 if $self->activation_date
34 0 6 if $self->company_division
35 0 6 if $self->division_no
36 5 1 if $self->physical_address
37 5 1 if $self->start_date
38 5 1 if $self->fiscalyear_date
40 1 5 if $self->url
44 5 4 if $self->NAICS->{$k}{'is_primary'}
45 5 4 if $pnaics
48 5 1 if ($pnaics)
49 1 4 $self->NAICS->{$pnaics}{'small_biz'} ? :
57 5 1 if $self->mailing_address
58 5 1 if $self->POC_gov
59 3 3 if $self->POC_gov_alt
60 2 4 if $self->POC_pastperf
61 2 4 if $self->POC_pastperf_alt
62 5 1 if $self->POC_elec
63 3 3 if $self->POC_elec_alt
64 0 6 $self->delinquent_fed_debt ? :
65 0 6 if $self->exclusion_status
76 2 4 $self->is_private ? :
99 78 0 if (@_)
101 10 68 if (length $d == 4)
181 0 12 unless scalar @_ == 150
188 10 2 if ($code =~ /A|2|3/x) { }
2 0 elsif ($code =~ /E|1|4/x) { }
190 8 2 if $code eq '3'
193 0 2 if $code eq '1'
221 10 2 if ($count > 0) { }
229 10 2 length $pnaics ? :
230 10 2 if ($count > 0) { }
233 16 0 if ($c =~ /(\d+)(Y|N|E)/)
234 6 10 unless ref $self->NAICS->{$1} eq 'HASH'
235 10 6 if $pnaics eq $1
236 6 10 if $2 eq 'Y'
237 6 10 if $2 eq 'N'
238 4 12 if $2 eq 'E'
245 2 10 if ($count > 0) { }
251 4 8 shift() eq 'Y' ? :
253 0 12 if $code eq 'M'
254 0 12 if $code eq 'F'
255 0 12 if $code eq 'E'
282 12 60 if $i == 0
283 12 60 if $i == 1
284 12 60 if $i == 2
285 12 60 if $i == 3
286 12 60 if $i == 4
287 12 60 if $i == 5
290 2 10 if ($count > 0) { }
293 4 0 if ($c =~ /(\d+)([YN ]*)/)
295 4 0 if (@es)
296 0 4 unless ref $self->NAICS->{$1}{'exception'} eq 'HASH'
297 4 0 if $es[0] eq 'Y'
298 0 4 if $es[0] eq 'N'
306 0 12 if $code eq 'Y'
307 8 4 if $code eq 'N'
310 0 12 if ($count > 0) { }
313 0 0 if ($c =~ /(\w{2})(\d{8})/)
315 0 0 unless ref $self->SBA->{$t} eq 'HASH'
323 4 8 length shift() ? :
325 0 12 if ($count > 0) { }
335 0 0 if ($c =~ /(\w{3})(\w*)/)
336 0 0 unless ref $h->{$1} eq 'HASH'
338 0 0 unless ref $h->{$1}{'areas'} eq 'HASH'
340 0 0 if length $a
348 0 12 if $eof ne '!end'