| line |
true |
false |
branch |
|
34
|
0 |
0 |
unless 'Text::CSV_XS'->new({'binary', 1, 'eol', $/}) |
|
43
|
0 |
0 |
unless 'DBI'->connect('dbi:CSV:', undef, undef, {'RaiseError', 1, 'PrintError', 1, 'f_ext', '.csv/r', 'csv_class', 'Text::CSV_XS'}) |
|
122
|
0 |
0 |
unless scalar grep({$_ eq $self->search_field;} @{$self->columns;}) |
|
134
|
0 |
0 |
if $. == 1 and $self->first_row_is_headers |
|
136
|
0 |
0 |
if ($self->csv_parser->parse($row)) { } |
|
143
|
0 |
0 |
if ($$row{$key} eq 'NULL' or $$row{$key} eq '') |
|
151
|
0 |
0 |
if (@nulls) |
|
159
|
0 |
0 |
unless my $sth = $self->dbh->prepare("select @{$self->columns;} from $$self{'merge_file'} where $$self{'search_field'} = ?") |
|
167
|
0 |
0 |
if (exists $$filler{$gap} and defined $$filler{$gap} and $$filler{$gap} ne '') { } |
|
195
|
0 |
0 |
unless $self->csv_parser->eof |
|
212
|
0 |
1 |
unless $self->output_file->close |