| line |
true |
false |
branch |
|
56
|
1 |
0 |
if (substr($line, 0, 1) eq '"') |
|
57
|
1 |
0 |
if ($line =~ /","/) { } |
|
|
0 |
0 |
elsif ($line =~ /\"\t\"/) { } |
|
72
|
1 |
98 |
unless defined $line |
|
74
|
1 |
97 |
if ($self->file_format eq 'UNKNOWN') |
|
80
|
98 |
0 |
if (exists $self->{'_type_map'}{$type}) |
|
90
|
0 |
98 |
if ($self->file_format eq 'FIXED') |
|
94
|
0 |
98 |
unless my $csv = 'Text::CSV'->new({'binary', 1, 'quote_char', '"', 'escape_char', '\\'}) |
|
101
|
98 |
0 |
if ($self->file_format eq 'CSV') { } |
|
|
0 |
0 |
elsif ($self->file_format eq 'TSV') { } |
|
107
|
98 |
0 |
if (my $status = $csv->parse($line)) |