| line |
true |
false |
branch |
|
29
|
0 |
0 |
unless 'Text::CSV_XS'->new({'binary', 1, 'eol', $/})
|
|
38
|
0 |
0 |
unless 'DBI'->connect('dbi:CSV:', undef, undef, {'RaiseError', 1, 'PrintError', 1, 'f_ext', '.csv/r', 'csv_class', 'Text::CSV_XS'})
|
|
124
|
0 |
0 |
if $. == 1 and $self->first_row_is_headers
|
|
126
|
0 |
0 |
if ($self->csv_parser->parse($row)) { }
|
|
133
|
0 |
0 |
if ($row->{$key} eq 'NULL' or $row->{$key} eq '')
|
|
141
|
0 |
0 |
if (@nulls)
|
|
149
|
0 |
0 |
unless my $sth = $self->dbh->prepare("select @{$self->columns;} from $self->{'merge_file'} where $self->{'search_field'} = ?")
|
|
157
|
0 |
0 |
if (exists $filler->{$gap} and defined $filler->{$gap} and $filler->{$gap} ne '') { }
|
|
185
|
0 |
0 |
unless $self->csv_parser->eof
|
|
200
|
0 |
1 |
unless $self->output_file->close
|