| line |
true |
false |
branch |
|
92
|
0 |
0 |
ref $_[0] ? : |
|
96
|
0 |
0 |
if $update and $ignore |
|
98
|
0 |
0 |
if (ref($file) =~ /^(?:ARRAY|HASH)$/) |
|
105
|
0 |
0 |
unless ($table) |
|
110
|
0 |
0 |
unless ($format) |
|
115
|
0 |
0 |
if ($format eq 'csv' or $format eq 'tsv') { } |
|
119
|
0 |
0 |
if ($format eq 'json') { } |
|
|
0 |
0 |
elsif ($format =~ /ya?ml/) { } |
|
123
|
0 |
0 |
unless open my $fh, '<', $file |
|
130
|
0 |
0 |
unless $rows = 'YAML::Tiny'->read($file) |
|
149
|
0 |
0 |
$format eq 'tsv' ? : |
|
|
0 |
0 |
unless my $csv = 'Text::CSV'->new({'binary', 1, 'blank_is_undef', 1, 'sep_char', $format eq 'tsv' ? "\t" : ',', %{$self->csv_option;}}) |
|
152
|
0 |
0 |
unless open my $fh, '<', $file |
|
166
|
0 |
0 |
if $args{'update'} and $args{'ignore'} |
|
170
|
0 |
0 |
if $update and $ignore |
|
174
|
0 |
0 |
if $bulk_insert and $skip_null_column |
|
177
|
0 |
0 |
if (exists $args{'update'}) |
|
179
|
0 |
0 |
if $update |
|
181
|
0 |
0 |
if (exists $args{'ignore'}) |
|
183
|
0 |
0 |
if $ignore |
|
186
|
0 |
0 |
if ($update and $self->_driver_name ne 'mysql') |
|
192
|
0 |
0 |
unless @$data |
|
196
|
0 |
0 |
unless my $txn = $self->transaction_manager->txn_scope |
|
198
|
0 |
0 |
if ($delete) |
|
203
|
0 |
0 |
if $ignore |
|
204
|
0 |
0 |
if ($bulk_insert) { } |
|
205
|
0 |
0 |
if $update |
|
207
|
0 |
0 |
$opt ? : |
|
209
|
0 |
0 |
unless $dbh->do($sql, undef, @binds) |
|
212
|
0 |
0 |
$update ? : |
|
214
|
0 |
0 |
defined $$row_orig{$_} ? : |
|
215
|
0 |
0 |
!$skip_null_column ? : |
|
217
|
0 |
0 |
if $update |
|
218
|
0 |
0 |
$opt ? : |
|
220
|
0 |
0 |
unless $dbh->do($sql, undef, @binds) |
|
223
|
0 |
0 |
unless $txn->commit |
|
233
|
0 |
0 |
if (ref $data eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $data eq 'ARRAY') { } |
|
237
|
0 |
0 |
if ($$data[0] and $$data[0]{'data'} and ref $$data[0]{'data'} eq 'HASH') { } |