| line |
true |
false |
branch |
|
13
|
0 |
5 |
$PDL::IO::DBI::Config{'ivsize'} < 8 ? : |
|
14
|
0 |
5 |
eval {
do {
require PDL::DateTime;
require Time::Moment;
1
}
} ? : |
|
15
|
0 |
5 |
$ENV{'PDL_IO_DBI_DEBUG'} ? : |
|
98
|
0 |
0 |
if $str =~ /^\d\d\d\d-\d\d-\d\d$/ |
|
99
|
0 |
0 |
unless $str =~ /(UTC|GMT|Z|\+)/ |
|
100
|
0 |
0 |
unless my $t = eval {
do {
'Time::Moment'->from_string($str, 'lenient', 1)
}
} |
|
106
|
0 |
0 |
if $str =~ /^\d\d\d\d-\d\d-\d\d$/ |
|
107
|
0 |
0 |
unless $str =~ /(UTC|GMT|Z|\+)/ |
|
108
|
0 |
0 |
unless my $t = eval {
do {
'Time::Moment'->from_string($str, 'lenient', 1)
}
} |
|
118
|
0 |
0 |
if ($reuse_sth and $$reuse_sth) { } |
|
122
|
0 |
0 |
unless $sth = $dbh->prepare($sql) |
|
123
|
0 |
0 |
unless $sth->execute(@$bind_values) |
|
124
|
0 |
0 |
if $reuse_sth |
|
128
|
0 |
0 |
if $O->{'debug'} |
|
133
|
0 |
0 |
if $O->{'debug'} |
|
136
|
0 |
0 |
if ($rows > 0) |
|
138
|
0 |
0 |
if ($allocated < $processed) |
|
140
|
0 |
0 |
if $O->{'debug'} |
|
146
|
0 |
0 |
if ($null2bad) |
|
149
|
0 |
0 |
unless (defined $tmp->[$_]) |
|
156
|
0 |
0 |
if (scalar @$c_convert > 0) |
|
158
|
0 |
0 |
if (ref $c_convert->[$c] eq 'CODE') |
|
175
|
0 |
0 |
if $len != $expected_len |
|
180
|
0 |
0 |
if $reuse_sth |
|
182
|
0 |
0 |
if $sth->err |
|
184
|
0 |
0 |
if ($processed != $allocated) |
|
185
|
0 |
0 |
if $O->{'debug'} |
|
189
|
0 |
0 |
if (ref $headerline eq 'ARRAY') |
|
191
|
0 |
0 |
if $headerline->[$_] and $headerline->[$_] ne '' |
|
195
|
0 |
0 |
if ($processed == 0) |
|
196
|
0 |
0 |
if ($reuse_sth) { } |
|
211
|
0 |
0 |
if $O->{'reuse_sth'} |
|
212
|
0 |
0 |
unless my $sth = $dbh->prepare($sql) |
|
213
|
0 |
0 |
unless $sth->execute(@$bind_values) |
|
216
|
0 |
0 |
if $O->{'debug'} |
|
222
|
0 |
0 |
if $O->{'debug'} |
|
225
|
0 |
0 |
if ($rows > 0) |
|
227
|
0 |
0 |
if ($allocated < $processed) |
|
229
|
0 |
0 |
if $O->{'debug'} |
|
234
|
0 |
0 |
if ($null2bad) |
|
237
|
0 |
0 |
unless (defined $_) |
|
244
|
0 |
0 |
if (scalar @$c_convert > 0) |
|
246
|
0 |
0 |
if (ref $c_convert->[$c] eq 'CODE') |
|
261
|
0 |
0 |
if $len != $expected_len |
|
266
|
0 |
0 |
if $sth->err |
|
267
|
0 |
0 |
if ($processed != $allocated) |
|
268
|
0 |
0 |
if $O->{'debug'} |
|
273
|
0 |
0 |
unless $processed > 0 |
|
279
|
0 |
0 |
ref $_[-1] eq 'HASH' ? : |
|
282
|
0 |
0 |
unless $sql |
|
283
|
0 |
0 |
unless defined $dsn_or_dbh |
|
285
|
0 |
0 |
if ($reuse_sth) |
|
287
|
0 |
0 |
if $$reuse_sth and not eval {
do {
$$reuse_sth->isa('DBI::st')
}
} |
|
292
|
0 |
0 |
unless defined $O->{'fetch_chunk'} |
|
293
|
0 |
0 |
$reuse_sth ? : |
|
294
|
0 |
0 |
unless defined $O->{'reshape_inc'} |
|
295
|
0 |
0 |
unless defined $O->{'type'} |
|
296
|
0 |
0 |
unless defined $O->{'debug'} |
|
299
|
0 |
0 |
if $O->{'reshape_inc'} < $O->{'fetch_chunk'} |
|
301
|
0 |
0 |
unless ref $bind_values eq 'ARRAY' |
|
304
|
0 |
0 |
ref $dsn_or_dbh ? : |
|
|
0 |
0 |
unless my $dbh = ref $dsn_or_dbh ? $dsn_or_dbh : 'DBI'->connect($dsn_or_dbh) |
|
312
|
0 |
0 |
unless ref $sql_types eq 'ARRAY' |
|
314
|
0 |
0 |
unless $cols > 0 |
|
325
|
0 |
0 |
if (ref $O->{'type'} eq 'ARRAY') { } |
|
331
|
0 |
0 |
unless $c_type[$_] |
|
333
|
0 |
0 |
$sql_types->[$_] ? : |
|
334
|
0 |
0 |
if ($O->{'debug'}) |
|
341
|
0 |
0 |
if ($detected_type[$_] and $detected_type[$_] eq '_dt_') |
|
342
|
0 |
0 |
if (do {
$c_type[$_] eq longlong()
}) { } |
|
356
|
0 |
0 |
if not defined $c_type[$_] or $c_type[$_] eq 'auto' |
|
357
|
0 |
0 |
unless $c_type[$_] |
|
359
|
0 |
0 |
if $c_pack[$_] eq 'q' and 0 |
|
360
|
0 |
0 |
unless $c_pack[$_] |
|
362
|
0 |
0 |
$c_dt[$_] ? : |
|
367
|
0 |
0 |
if $big != $c_sizeof[$_] |
|
376
|
0 |
0 |
unless ref $sql_types eq 'ARRAY' |
|
378
|
0 |
0 |
unless $cols > 0 |
|
381
|
0 |
0 |
if (not $c_type or $c_type eq 'auto') |
|
383
|
0 |
0 |
$sql_types->[$_] ? : |
|
384
|
0 |
0 |
if ($O->{'debug'}) |
|
389
|
0 |
0 |
if $detected_type[$_] and $detected_type[$_] eq '_dt_' |
|
391
|
0 |
0 |
if $dt eq double() |
|
392
|
0 |
0 |
if $dt eq float() and $c_type ne double() |
|
393
|
0 |
0 |
if $dt eq longlong() and not $c_type =~ /^(double|float)$/ |
|
394
|
0 |
0 |
if $dt eq long() and not $c_type =~ /^(double|float|longlong)$/ |
|
395
|
0 |
0 |
if $dt eq short() and not $c_type =~ /^(double|float|longlong|long)$/ |
|
396
|
0 |
0 |
if $dt eq byte() and not $c_type =~ /^(double|float|longlong|long|short)$/ |
|
398
|
0 |
0 |
unless $c_type |
|
401
|
0 |
0 |
if $c_pack eq 'q' and 0 |
|
402
|
0 |
0 |
unless $c_pack |
|
407
|
0 |
0 |
if ($t eq '_dt_') |
|
408
|
0 |
0 |
$c_type eq 'longlong' ? : |
|
419
|
0 |
0 |
unless $howbig == $c_sizeof |