| line |
true |
false |
branch |
|
18
|
0 |
6 |
unless -e $filename
|
|
20
|
0 |
6 |
unless defined $io
|
|
29
|
0 |
26 |
unless length $line
|
|
31
|
4 |
22 |
if ($line =~ /BOF\s+PUBLIC\s+(V2)?\s*(\d{8})\s+(\d{8})\s+(\d+)\s+(\d+)/) { }
|
|
|
4 |
18 |
elsif ($line =~ /EOF\s+PUBLIC\s+(V2)?\s*(\d{8})\s+(\d{8})\s+(\d+)\s+(\d+)/) { }
|
|
34
|
2 |
2 |
if ($entity_info->{'version'} eq 'V2') { }
|
|
46
|
2 |
2 |
if ($entity_info->{'version'} eq 'V2') { }
|
|
50
|
0 |
2 |
if $entity_info->{'date'} ne $3 or $entity_info->{'rows'} ne $4 or $entity_info->{'seqno'} ne $5
|
|
55
|
0 |
2 |
if $entity_info->{'date'} ne $2 or $entity_info->{'rows'} ne $4 or $entity_info->{'seqno'} ne $5
|
|
59
|
2 |
16 |
unless $is_entity
|
|
61
|
0 |
16 |
unless $obj->load(@data)
|
|
63
|
8 |
8 |
if (defined $cb and ref $cb eq 'CODE') { }
|
|
65
|
2 |
6 |
if $res
|
|
70
|
2 |
4 |
unless ($is_entity)
|
|
71
|
0 |
2 |
unless my $csv = "Text::CSV_XS"->new({"binary", 1})
|
|
76
|
0 |
20 |
unless $obj->load(@$row)
|
|
77
|
0 |
20 |
if (defined $cb and ref $cb eq 'CODE') { }
|
|
79
|
0 |
0 |
if $res
|
|
84
|
0 |
2 |
unless $csv->eof
|
|
86
|
6 |
0 |
if scalar @$result
|