| line |
true |
false |
branch |
|
49
|
0 |
0 |
if $$self{'debug'} |
|
57
|
0 |
0 |
unless my $sth = $dbh->prepare("select 1, $$par{'col'}\n\t\t from $$par{'table'}\n\t\t where ($$par{'where'}) and $$par{'col'} is not NULL") |
|
63
|
0 |
0 |
unless $sth->execute(@{$$par{'params'};}) |
|
64
|
0 |
0 |
if $DBI::errstr |
|
72
|
0 |
0 |
if ($filename) { } |
|
74
|
0 |
0 |
unless open $fh, "> $filename" |
|
76
|
0 |
0 |
if $$self{'debug'} |
|
79
|
0 |
0 |
if $fh |
|
81
|
0 |
0 |
unless $fh |
|
85
|
0 |
0 |
if $fh |
|
87
|
0 |
0 |
if ($sth->fetchrow_arrayref) |
|
89
|
0 |
0 |
if $$self{'debug'} |
|
91
|
0 |
0 |
if $frag ne '' |
|
93
|
0 |
0 |
if $frag eq '' |
|
94
|
0 |
0 |
unless defined $frag |
|
96
|
0 |
0 |
unless $len |
|
97
|
0 |
0 |
if ($fh) { } |
|
98
|
0 |
0 |
unless print $fh $frag |
|
107
|
0 |
0 |
unless $sth->finish |
|
110
|
0 |
0 |
if $fh and not $$par{'filehandle'} |
|
112
|
0 |
0 |
if $$par{'filehandle'} or $$par{'filename'} |
|
152
|
0 |
0 |
unless $from_tables{$left} |
|
155
|
0 |
0 |
if (ref $$lref[1]) { } |
|
157
|
0 |
0 |
if (@{$$lref[1];} > 1) { } |
|
174
|
0 |
0 |
unless $from_tables{$$lref[$i][0]} |
|
204
|
0 |
0 |
if $$self{'utf8'} |
|
264
|
0 |
0 |
if $value ne '' |
|
267
|
0 |
0 |
unless @values |
|
270
|
0 |
0 |
if ($$par{'search_op'} eq 'sub') |
|
349
|
0 |
0 |
if ($type eq 'serial') { } |
|
|
0 |
0 |
elsif ($type eq 'blob' or $type eq 'clob') { } |
|
352
|
0 |
0 |
if (not defined $val) { } |
|
370
|
0 |
0 |
if ($$par{'db_action'} eq 'insert') |
|
372
|
0 |
0 |
$type eq 'blob' ? : |
|
391
|
0 |
0 |
if ($$par{'db_action'} eq 'insert') { } |
|
408
|
0 |
0 |
if (@columns) |
|
420
|
0 |
0 |
if ($blob_found) |
|
421
|
0 |
0 |
if ($$par{'db_action'} eq 'insert') { } |
|
470
|
0 |
0 |
if ($@) |
|
471
|
0 |
0 |
if $$self{'debug'} |
|
478
|
0 |
0 |
if $$self{'debug'} |
|
482
|
0 |
0 |
if $$self{'debug'} |
|
500
|
0 |
0 |
if $$self{'debug'} |
|
506
|
0 |
0 |
unless $Dimedis::SqlDriver::Oracle::already_imported |
|
520
|
0 |
0 |
if $$self{'debug'} |
|
523
|
0 |
0 |
unless my $sth = $$self{'dbh'}->prepare("\n\t\tupdate $table set $col = ? where $where\n\t") |
|
528
|
0 |
0 |
$type eq 'blob' ? : |
|
530
|
0 |
0 |
if $$self{'debug'} |
|
532
|
0 |
0 |
unless $sth->bind_param(1, $$blob, {'ora_type', $ora_type, 'ora_field', $col}) |
|
542
|
0 |
0 |
unless $sth->execute |
|
544
|
0 |
0 |
unless $sth->finish |
|
547
|
0 |
0 |
if $$self{'debug'} |