| line |
true |
false |
branch |
|
18
|
0 |
3 |
unless -e $filename |
|
20
|
0 |
3 |
unless defined $io |
|
29
|
0 |
17 |
unless length $line |
|
31
|
2 |
15 |
if ($line =~ /BOF PUBLIC\s+(\d{8})\s+(\d{8})\s+(\d+)\s+(\d+)/) { } |
|
|
2 |
13 |
elsif ($line =~ /EOF\s+PUBLIC\s+(\d{8})\s+(\d{8})\s+(\d+)\s+(\d+)/) { } |
|
41
|
0 |
2 |
if $entity_info->{'date'} ne $1 or $entity_info->{'rows'} ne $3 or $entity_info->{'seqno'} ne $4 |
|
44
|
1 |
12 |
unless $is_entity |
|
46
|
0 |
12 |
unless $obj->load(@data) |
|
48
|
6 |
6 |
if (defined $cb and ref $cb eq 'CODE') { } |
|
50
|
1 |
5 |
if $res |
|
55
|
1 |
2 |
unless ($is_entity) |
|
56
|
0 |
1 |
unless my $csv = 'Text::CSV_XS'->new({'binary', 1}) |
|
61
|
0 |
4 |
unless $obj->load(@$row) |
|
62
|
0 |
4 |
if (defined $cb and ref $cb eq 'CODE') { } |
|
64
|
0 |
0 |
if $res |
|
69
|
0 |
1 |
unless $csv->eof |
|
71
|
3 |
0 |
if scalar @$result |