| line |
true |
false |
branch |
|
59
|
0 |
0 |
unless (exists $par{'cache'}) |
|
65
|
0 |
0 |
unless $dbh |
|
72
|
0 |
0 |
if ($db_type eq 'Proxy') |
|
91
|
0 |
0 |
if $debug |
|
110
|
0 |
0 |
if $utf8 |
|
131
|
0 |
0 |
unless defined $known_data_types{$type} |
|
134
|
0 |
0 |
if ($type eq 'serial') { } |
|
|
0 |
0 |
elsif ($type eq 'date') { } |
|
|
0 |
0 |
elsif ($type eq 'blob' or $type eq 'clob') { } |
|
136
|
0 |
0 |
if (exists $$data_href{$col}) |
|
137
|
0 |
0 |
if $serial_found |
|
143
|
0 |
0 |
if defined $$data_href{$col} and not $$self{'serial_write'} |
|
150
|
0 |
0 |
if $$data_href{$col} and not $$data_href{$col} =~ /^\d\d\d\d\d\d\d\d\d\d:\d\d:\d\d$/ |
|
156
|
0 |
0 |
if exists $$data_href{$col} |
|
160
|
0 |
0 |
if $action eq 'insert' and $blob_found and not $serial_found && exists $$data_href{$serial_found} |
|
178
|
0 |
0 |
unless defined $par{'table'} |
|
179
|
0 |
0 |
unless defined $par{'data'} |
|
197
|
0 |
0 |
if $@ |
|
213
|
0 |
0 |
unless defined $par{'table'} |
|
214
|
0 |
0 |
unless defined $par{'data'} |
|
215
|
0 |
0 |
unless defined $par{'where'} |
|
221
|
0 |
0 |
if $serial_found |
|
224
|
0 |
0 |
if ($$self{'utf8'}) |
|
243
|
0 |
0 |
if $@ |
|
258
|
0 |
0 |
unless defined $par{'table'} |
|
259
|
0 |
0 |
unless defined $par{'where'} |
|
260
|
0 |
0 |
unless defined $par{'col'} |
|
261
|
0 |
0 |
if defined $par{'filehandle'} and defined $par{'filename'} |
|
265
|
0 |
0 |
if ($$self{'utf8'}) |
|
277
|
0 |
0 |
if $@ |
|
280
|
0 |
0 |
if ($blob and $$self{'utf8'} and $$self{'type_href'}{$par{'table'}}{$par{'col'}} eq 'clob') |
|
282
|
0 |
0 |
if $$self{'debug'} |
|
300
|
0 |
0 |
if ($$self{'utf8'} and not $no_utf8) { } |
|
|
0 |
0 |
elsif (not $$self{'utf8'} || $no_utf8) { } |
|
307
|
0 |
0 |
if &Encode::is_utf8($p) |
|
323
|
0 |
0 |
if (exists $par{'cache'}) |
|
330
|
0 |
0 |
unless $$self{'cache'} |
|
332
|
0 |
0 |
if $$self{'debug'} |
|
334
|
0 |
0 |
if $$self{'debug'} |
|
337
|
0 |
0 |
if ($use_prepare_cached) { } |
|
338
|
0 |
0 |
if $$self{'debug'} |
|
341
|
0 |
0 |
if $$self{'debug'} |
|
344
|
0 |
0 |
if $DBI::errstr |
|
346
|
0 |
0 |
unless ($no_nulling) |
|
348
|
0 |
0 |
if $_ eq '' |
|
353
|
0 |
0 |
if $DBI::errstr |
|
368
|
0 |
0 |
if ($$self{'utf8'}) { } |
|
|
0 |
0 |
elsif (not $$self{'utf8'}) { } |
|
375
|
0 |
0 |
if &Encode::is_utf8($p) |
|
380
|
0 |
0 |
if $$self{'debug'} |
|
382
|
0 |
0 |
if $$self{'debug'} |
|
386
|
0 |
0 |
if $DBI::errstr |
|
403
|
0 |
0 |
if ($$self{'utf8'}) |
|
422
|
0 |
0 |
if (exists $par{'cache'}) |
|
429
|
0 |
0 |
unless $$self{'cache'} |
|
431
|
0 |
0 |
if $$self{'debug'} |
|
435
|
0 |
0 |
if ($use_prepare_cached) { } |
|
436
|
0 |
0 |
if $$self{'debug'} |
|
437
|
0 |
0 |
unless $sth = $dbh->prepare_cached($sql) |
|
440
|
0 |
0 |
if $$self{'debug'} |
|
441
|
0 |
0 |
unless $sth = $dbh->prepare($sql) |
|
445
|
0 |
0 |
unless $sth->execute(@{$params;}) |
|
448
|
0 |
0 |
if (wantarray) { } |
|
451
|
0 |
0 |
if ($$self{'utf8'} and defined $lref) |
|
456
|
0 |
0 |
unless $sth->finish |
|
457
|
0 |
0 |
defined $lref ? : |
|
460
|
0 |
0 |
unless $sth->finish |
|
461
|
0 |
0 |
unless keys %{$href;} |
|
463
|
0 |
0 |
if $$self{'utf8'} |
|
475
|
0 |
0 |
if ($$self{'utf8'}) |
|
486
|
0 |
0 |
if (ref $p) { } |
|
505
|
0 |
0 |
unless defined $par{'col'} |
|
506
|
0 |
0 |
unless defined $par{'val'} |
|
507
|
0 |
0 |
unless defined $par{'op'} |
|
509
|
0 |
0 |
unless defined $known_operators{$par{'op'}} |
|
513
|
0 |
0 |
if ($$self{'utf8'}) |
|
530
|
0 |
0 |
unless defined $par{'db'} |
|
544
|
0 |
0 |
unless defined $par{'db'} |
|
559
|
0 |
0 |
if $@ |
|
571
|
0 |
0 |
unless defined $par{'col'} |
|
572
|
0 |
0 |
unless defined $par{'vals'} |
|
573
|
0 |
0 |
unless defined $par{'search_op'} |
|
575
|
0 |
0 |
if $par{'search_op'} ne 'sub' |
|
579
|
0 |
0 |
if @{$par{'vals'};} > 1 and not defined $par{'logic_op'} |
|
581
|
0 |
0 |
if defined $par{'logic_op'} and not $par{'logic_op'} =~ /^(and|or)$/ |
|
585
|
0 |
0 |
if ($$self{'utf8'}) |
|
608
|
0 |
0 |
$$self{'utf8'} && $type eq 'clob' ? : |
|
610
|
0 |
0 |
if $$self{'debug'} |
|
613
|
0 |
0 |
if (ref $val and ref $val ne 'SCALAR') { } |
|
|
0 |
0 |
elsif (not ref $val) { } |
|
625
|
0 |
0 |
unless open $fh, $val |
|
633
|
0 |
0 |
if $layer eq ':utf8' |