| line |
true |
false |
branch |
|
57
|
2 |
0 |
if (substr($line, 0, 1) eq '"') |
|
58
|
2 |
0 |
if ($line =~ /","/) { } |
|
|
0 |
0 |
elsif ($line =~ /\"\t\"/) { } |
|
73
|
2 |
104 |
unless defined $line |
|
75
|
2 |
102 |
if ($self->file_format eq 'UNKNOWN') |
|
81
|
104 |
0 |
if (exists $self->{'_type_map'}{$type}) |
|
89
|
2 |
102 |
if ($type eq 'HEADER') |
|
102
|
0 |
104 |
if ($self->file_format eq 'FIXED') |
|
106
|
0 |
104 |
unless my $csv = 'Text::CSV'->new({'binary', 1, 'quote_char', '"', 'escape_char', '\\'}) |
|
113
|
104 |
0 |
if ($self->file_format eq 'CSV') { } |
|
|
0 |
0 |
elsif ($self->file_format eq 'TSV') { } |
|
119
|
104 |
0 |
if (my $status = $csv->parse($line)) |