| 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' |