| line |
true |
false |
branch |
|
21
|
7 |
1 |
if $self->name
|
|
22
|
2 |
6 |
if $self->dba_name
|
|
23
|
2 |
6 |
if $self->UEI
|
|
24
|
6 |
2 |
if $self->DUNS
|
|
25
|
0 |
8 |
if $self->DUNS and $self->DUNSplus4 ne "0000"
|
|
26
|
2 |
6 |
if defined $self->EEFTI
|
|
27
|
8 |
0 |
if $self->CAGE
|
|
28
|
3 |
5 |
if $self->DODAAC
|
|
29
|
8 |
0 |
if $self->extract_code
|
|
30
|
4 |
4 |
if $self->updated
|
|
31
|
8 |
0 |
if $self->regn_purpose
|
|
32
|
7 |
1 |
if $self->regn_date
|
|
33
|
7 |
1 |
if $self->expiry_date
|
|
34
|
7 |
1 |
if $self->lastupdate_date
|
|
35
|
7 |
1 |
if $self->activation_date
|
|
36
|
1 |
7 |
if $self->company_division
|
|
37
|
0 |
8 |
if $self->division_no
|
|
38
|
7 |
1 |
if $self->physical_address
|
|
39
|
7 |
1 |
if $self->start_date
|
|
40
|
7 |
1 |
if $self->fiscalyear_date
|
|
42
|
3 |
5 |
if $self->url
|
|
45
|
2 |
6 |
$self->is_smallbiz ? :
|
|
52
|
7 |
1 |
if $self->mailing_address
|
|
53
|
7 |
1 |
if $self->POC_gov
|
|
54
|
5 |
3 |
if $self->POC_gov_alt
|
|
55
|
3 |
5 |
if $self->POC_pastperf
|
|
56
|
2 |
6 |
if $self->POC_pastperf_alt
|
|
57
|
7 |
1 |
if $self->POC_elec
|
|
58
|
5 |
3 |
if $self->POC_elec_alt
|
|
59
|
0 |
8 |
$self->delinquent_fed_debt ? :
|
|
60
|
0 |
8 |
if $self->exclusion_status
|
|
71
|
2 |
6 |
$self->is_private ? :
|
|
72
|
2 |
6 |
if defined $self->dnb_open_data
|
|
97
|
102 |
0 |
if (@_)
|
|
99
|
14 |
88 |
if (length $d == 4)
|
|
189
|
1 |
33 |
if $self->NAICS->{$k}{'small_biz'}
|
|
190
|
1 |
33 |
if $self->NAICS->{$k}{'exception'}{'small_biz'}
|
|
191
|
2 |
32 |
if $res
|
|
207
|
12 |
4 |
if $ncols eq 150
|
|
208
|
4 |
0 |
if $ncols eq 142
|
|
215
|
0 |
12 |
unless scalar @_ == 150
|
|
222
|
10 |
2 |
if ($code =~ /A|2|3/x) { }
|
|
|
2 |
0 |
elsif ($code =~ /E|1|4/x) { }
|
|
224
|
8 |
2 |
if $code eq 3
|
|
227
|
0 |
2 |
if $code eq 1
|
|
255
|
10 |
2 |
if ($count > 0) { }
|
|
262
|
10 |
2 |
if length $pnaics
|
|
263
|
10 |
2 |
length $pnaics ? :
|
|
264
|
10 |
2 |
if ($count > 0) { }
|
|
267
|
16 |
0 |
if ($c =~ /(\d+)(Y|N|E)/)
|
|
268
|
6 |
10 |
unless ref $self->NAICS->{$1} eq "HASH"
|
|
269
|
10 |
6 |
if $pnaics eq $1
|
|
270
|
6 |
10 |
if $2 eq "Y"
|
|
271
|
6 |
10 |
if $2 eq "N"
|
|
272
|
4 |
12 |
if $2 eq "E"
|
|
279
|
2 |
10 |
if ($count > 0) { }
|
|
285
|
4 |
8 |
shift() eq 'Y' ? :
|
|
287
|
0 |
12 |
if $code eq "M"
|
|
288
|
0 |
12 |
if $code eq "F"
|
|
289
|
0 |
12 |
if $code eq "E"
|
|
316
|
12 |
60 |
if $i == 0
|
|
317
|
12 |
60 |
if $i == 1
|
|
318
|
12 |
60 |
if $i == 2
|
|
319
|
12 |
60 |
if $i == 3
|
|
320
|
12 |
60 |
if $i == 4
|
|
321
|
12 |
60 |
if $i == 5
|
|
324
|
2 |
10 |
if ($count > 0) { }
|
|
327
|
4 |
0 |
if ($c =~ /(\d+)([YN ]*)/)
|
|
329
|
4 |
0 |
if (@es)
|
|
330
|
0 |
4 |
unless ref $self->NAICS->{$1}{'exception'} eq "HASH"
|
|
331
|
4 |
0 |
if $es[0] eq "Y"
|
|
332
|
0 |
4 |
if $es[0] eq "N"
|
|
340
|
0 |
12 |
if $code eq "Y"
|
|
341
|
8 |
4 |
if $code eq "N"
|
|
344
|
0 |
12 |
if ($count > 0) { }
|
|
347
|
0 |
0 |
if ($c =~ /(\w{2})(\d{8})/)
|
|
349
|
0 |
0 |
unless ref $self->SBA->{$t} eq "HASH"
|
|
357
|
4 |
8 |
length shift() ? :
|
|
359
|
0 |
12 |
if ($count > 0) { }
|
|
369
|
0 |
0 |
if ($c =~ /(\w{3})(\w*)/)
|
|
370
|
0 |
0 |
unless ref $h->{$1} eq "HASH"
|
|
372
|
0 |
0 |
unless ref $h->{$1}{'areas'} eq "HASH"
|
|
374
|
0 |
0 |
if length $a
|
|
382
|
0 |
12 |
if $eof ne "!end"
|
|
388
|
0 |
4 |
unless scalar @_ == 142
|
|
396
|
4 |
0 |
if ($code =~ /A|2|3/x) { }
|
|
|
0 |
0 |
elsif ($code =~ /E|1|4/x) { }
|
|
398
|
0 |
4 |
if $code eq 3
|
|
401
|
0 |
0 |
if $code eq 1
|
|
430
|
4 |
0 |
if ($count > 0) { }
|
|
437
|
4 |
0 |
if length $pnaics
|
|
438
|
4 |
0 |
length $pnaics ? :
|
|
439
|
4 |
0 |
if ($count > 0) { }
|
|
442
|
60 |
2 |
if ($c =~ /(\d+)(Y|N|E)/)
|
|
443
|
54 |
6 |
unless ref $self->NAICS->{$1} eq "HASH"
|
|
444
|
6 |
54 |
if $pnaics eq $1
|
|
445
|
0 |
60 |
if $2 eq "Y"
|
|
446
|
48 |
12 |
if $2 eq "N"
|
|
447
|
12 |
48 |
if $2 eq "E"
|
|
454
|
4 |
0 |
if ($count > 0) { }
|
|
460
|
4 |
0 |
shift() eq 'Y' ? :
|
|
462
|
0 |
4 |
if $code eq "M"
|
|
463
|
0 |
4 |
if $code eq "F"
|
|
464
|
0 |
4 |
if $code eq "E"
|
|
487
|
4 |
20 |
if $i == 0
|
|
488
|
4 |
20 |
if $i == 1
|
|
489
|
4 |
20 |
if $i == 2
|
|
490
|
4 |
20 |
if $i == 3
|
|
491
|
4 |
20 |
if $i == 4
|
|
492
|
4 |
20 |
if $i == 5
|
|
495
|
4 |
0 |
if ($count > 0) { }
|
|
498
|
12 |
0 |
if ($c =~ /(\d+)([YN ]*)/)
|
|
500
|
12 |
0 |
if (@es)
|
|
501
|
0 |
12 |
unless ref $self->NAICS->{$1}{'exception'} eq "HASH"
|
|
502
|
0 |
12 |
if $es[0] eq "Y"
|
|
503
|
12 |
0 |
if $es[0] eq "N"
|
|
511
|
0 |
4 |
if $code eq "Y"
|
|
512
|
4 |
0 |
if $code eq "N"
|
|
515
|
0 |
4 |
if ($count > 0) { }
|
|
518
|
0 |
0 |
if ($c =~ /(\w{2})(\d{8})/)
|
|
520
|
0 |
0 |
unless ref $self->SBA->{$t} eq "HASH"
|
|
528
|
0 |
4 |
length shift() ? :
|
|
530
|
0 |
4 |
if ($count > 0) { }
|
|
540
|
0 |
0 |
if ($c =~ /(\w{3})(\w*)/)
|
|
541
|
0 |
0 |
unless ref $h->{$1} eq "HASH"
|
|
543
|
0 |
0 |
unless ref $h->{$1}{'areas'} eq "HASH"
|
|
545
|
0 |
0 |
if length $a
|
|
557
|
0 |
4 |
if $eof ne "!end"
|