| line |
true |
false |
branch |
|
46
|
0 |
0 |
unless UNIVERSAL::isa($dbh, 'DBI::db') |
|
49
|
0 |
0 |
unless $table = $$param{'table'} |
|
65
|
0 |
0 |
if $$dbh{'AutoCommit'} |
|
76
|
0 |
0 |
unless ($lfields) |
|
84
|
0 |
0 |
if ($pfields) { } |
|
91
|
0 |
0 |
unless ($lnk) |
|
103
|
0 |
0 |
if (not $ltables) { } |
|
|
0 |
0 |
elsif ($$self{'single'} or scalar @$ltables != scalar @{$$self{'linked_fields'};}) { } |
|
115
|
0 |
0 |
if ($ltables) |
|
120
|
0 |
0 |
if (not $lvalues and $n_ltables) { } |
|
|
0 |
0 |
elsif ($lvalues and $$self{'single'} || scalar @$lvalues != scalar @{$$self{'linked_fields'};}) { } |
|
135
|
0 |
0 |
if (not $lrefs and $n_ltables) { } |
|
|
0 |
0 |
elsif ($lrefs and $$self{'single'} || scalar @$lrefs != scalar @{$$self{'linked_fields'};}) { } |
|
150
|
0 |
0 |
if (not $lalias) { } |
|
|
0 |
0 |
elsif (scalar @$lalias != $n_ltables + 1) { } |
|
184
|
0 |
0 |
unless ($$self{'single'}) |
|
212
|
0 |
0 |
unless ($$self{'single'}) |
|
222
|
0 |
0 |
unless ($$self{'linked_fields'}[$lf] =~ /.+\..+/) |
|
282
|
0 |
0 |
if ($$self{'single'}) |
|
287
|
0 |
0 |
unless ($$param{'offset'} or not $$param{'limit'}) |
|
295
|
0 |
0 |
if ($$param{$p}) |
|
298
|
0 |
0 |
if (ref $$param{$p} eq 'HASH') |
|
307
|
0 |
0 |
if ($$param{'fields'}) { } |
|
316
|
0 |
0 |
unless return $$self{'dbh'}->prepare($query) |
|
337
|
0 |
0 |
$f >= $nprop ? : |
|
341
|
0 |
0 |
$f >= $nprop ? : |
|
373
|
0 |
0 |
unless ($$self{'single'}) |
|
380
|
0 |
0 |
unless $lnk |
|
387
|
0 |
0 |
unless my $stf = $$self{'dbh'}->prepare($qfield) |
|
389
|
0 |
0 |
unless $stf->execute($$rec{$fname}) |
|
416
|
0 |
0 |
if $fok |
|
423
|
0 |
0 |
unless my $ok = $$self{'dbh'}->do($query) |
|
424
|
0 |
0 |
unless $$self{'dbh'}->commit |
|
445
|
0 |
0 |
if $fok |
|
451
|
0 |
0 |
if $where |
|
454
|
0 |
0 |
unless my $ok = $$self{'dbh'}->do($query) |
|
455
|
0 |
0 |
unless $$self{'dbh'}->commit |
|
470
|
0 |
0 |
unless my $sdel = $$self{'dbh'}->prepare($qdel) |
|
471
|
0 |
0 |
unless my $rdel = $sdel->execute($pkey) |
|
472
|
0 |
0 |
unless $$self{'dbh'}->commit |
|
482
|
0 |
0 |
unless my $sth = $$self{'dbh'}->prepare($single) |
|
483
|
0 |
0 |
unless my $rh = $sth->execute |
|
497
|
0 |
0 |
if ($field < scalar @{$$self{'non_linked'};}) { } |
|
513
|
0 |
0 |
unless my $sth = $$self{'dbh'}->prepare($q) |
|
514
|
0 |
0 |
unless $sth->execute |
|
568
|
0 |
0 |
if ($$self{'dbh'}{'Driver'}{'Name'} =~ /mysql/i) { } |
|
|
0 |
0 |
elsif ($$self{'dbh'}{'Driver'}{'Name'} =~ /pg/i) { } |
|
587
|
0 |
0 |
unless $$self{'debug'} |
|
589
|
0 |
0 |
if $txt |
|
603
|
0 |
0 |
if ($type eq 'HASH') { } |
|
|
0 |
0 |
elsif ($type eq 'ARRAY') { } |