| line |
true |
false |
branch |
|
64
|
7 |
0 |
if (substr($line, 0, 1) eq "\"") |
|
65
|
7 |
0 |
if ($line =~ /","/msx) { } |
|
|
0 |
0 |
elsif ($line =~ /\"\t\"/msx) { } |
|
80
|
2 |
110 |
unless defined $line |
|
82
|
7 |
103 |
if ($self->file_format eq "UNKNOWN") |
|
88
|
110 |
0 |
if (exists $self->{'_type_map'}{$type}) |
|
98
|
8 |
102 |
if ($type eq "HEADER") |
|
111
|
0 |
110 |
if ($self->file_format eq "FIXED") |
|
115
|
0 |
110 |
unless my $csv = "Text::CSV"->new({"binary", 1, "quote_char", "\"", "escape_char", "\\"}) |
|
124
|
110 |
0 |
if ($self->file_format eq 'CSV') { } |
|
|
0 |
0 |
elsif ($self->file_format eq 'TSV') { } |
|
130
|
110 |
0 |
if (my $status = $csv->parse($line)) |