| 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 |
|
43
|
2 |
4 |
$self->is_smallbiz ? : |
|
50
|
5 |
1 |
if $self->mailing_address |
|
51
|
5 |
1 |
if $self->POC_gov |
|
52
|
3 |
3 |
if $self->POC_gov_alt |
|
53
|
2 |
4 |
if $self->POC_pastperf |
|
54
|
2 |
4 |
if $self->POC_pastperf_alt |
|
55
|
5 |
1 |
if $self->POC_elec |
|
56
|
3 |
3 |
if $self->POC_elec_alt |
|
57
|
0 |
6 |
$self->delinquent_fed_debt ? : |
|
58
|
0 |
6 |
if $self->exclusion_status |
|
69
|
2 |
4 |
$self->is_private ? : |
|
92
|
78 |
0 |
if (@_) |
|
94
|
10 |
68 |
if (length $d == 4) |
|
168
|
2 |
4 |
if $self->NAICS->{$k}{'small_biz'} |
|
169
|
0 |
6 |
if $self->NAICS->{$k}{'exception'}{'small_biz'} |
|
170
|
2 |
4 |
if $res |
|
185
|
0 |
12 |
unless scalar @_ == 150 |
|
192
|
10 |
2 |
if ($code =~ /A|2|3/x) { } |
|
|
2 |
0 |
elsif ($code =~ /E|1|4/x) { } |
|
194
|
8 |
2 |
if $code eq '3' |
|
197
|
0 |
2 |
if $code eq '1' |
|
225
|
10 |
2 |
if ($count > 0) { } |
|
233
|
10 |
2 |
length $pnaics ? : |
|
234
|
10 |
2 |
if ($count > 0) { } |
|
237
|
16 |
0 |
if ($c =~ /(\d+)(Y|N|E)/) |
|
238
|
6 |
10 |
unless ref $self->NAICS->{$1} eq 'HASH' |
|
239
|
10 |
6 |
if $pnaics eq $1 |
|
240
|
6 |
10 |
if $2 eq 'Y' |
|
241
|
6 |
10 |
if $2 eq 'N' |
|
242
|
4 |
12 |
if $2 eq 'E' |
|
249
|
2 |
10 |
if ($count > 0) { } |
|
255
|
4 |
8 |
shift() eq 'Y' ? : |
|
257
|
0 |
12 |
if $code eq 'M' |
|
258
|
0 |
12 |
if $code eq 'F' |
|
259
|
0 |
12 |
if $code eq 'E' |
|
286
|
12 |
60 |
if $i == 0 |
|
287
|
12 |
60 |
if $i == 1 |
|
288
|
12 |
60 |
if $i == 2 |
|
289
|
12 |
60 |
if $i == 3 |
|
290
|
12 |
60 |
if $i == 4 |
|
291
|
12 |
60 |
if $i == 5 |
|
294
|
2 |
10 |
if ($count > 0) { } |
|
297
|
4 |
0 |
if ($c =~ /(\d+)([YN ]*)/) |
|
299
|
4 |
0 |
if (@es) |
|
300
|
0 |
4 |
unless ref $self->NAICS->{$1}{'exception'} eq 'HASH' |
|
301
|
4 |
0 |
if $es[0] eq 'Y' |
|
302
|
0 |
4 |
if $es[0] eq 'N' |
|
310
|
0 |
12 |
if $code eq 'Y' |
|
311
|
8 |
4 |
if $code eq 'N' |
|
314
|
0 |
12 |
if ($count > 0) { } |
|
317
|
0 |
0 |
if ($c =~ /(\w{2})(\d{8})/) |
|
319
|
0 |
0 |
unless ref $self->SBA->{$t} eq 'HASH' |
|
327
|
4 |
8 |
length shift() ? : |
|
329
|
0 |
12 |
if ($count > 0) { } |
|
339
|
0 |
0 |
if ($c =~ /(\w{3})(\w*)/) |
|
340
|
0 |
0 |
unless ref $h->{$1} eq 'HASH' |
|
342
|
0 |
0 |
unless ref $h->{$1}{'areas'} eq 'HASH' |
|
344
|
0 |
0 |
if length $a |
|
352
|
0 |
12 |
if $eof ne '!end' |