| line |
true |
false |
branch |
|
11
|
0 |
1 |
if $] < 5.007001 |
|
87
|
1 |
0 |
if (ref $_[0] eq 'HASH') { } |
|
95
|
0 |
1 |
unless $dsn and $table and $key |
|
97
|
1 |
0 |
defined $opt ? : |
|
104
|
1 |
0 |
if (UNIVERSAL::isa($dsn, 'DBI::db')) { } |
|
110
|
0 |
0 |
unless $dsn =~ /^dbi/ |
|
129
|
0 |
0 |
unless $dbh |
|
132
|
0 |
1 |
if ($driver eq 'Oracle') |
|
152
|
0 |
1 |
if defined $_[0]{'dbh'} and $_[0]{'needs_disconnect'} |
|
163
|
1 |
19 |
if (@keys > 1) { } |
|
166
|
1 |
0 |
unless ($$s{'CanBindSelect'}) |
|
169
|
0 |
1 |
if ($$s{'DoesIN'}) { } |
|
178
|
19 |
0 |
unless $$s{'CanBindSelect'} |
|
184
|
19 |
1 |
if (@keys == 1) |
|
187
|
0 |
19 |
unless $r |
|
202
|
1 |
0 |
@keys > 1 ? : |
|
209
|
0 |
4 |
unless $st->execute |
|
212
|
1 |
3 |
unless (defined $ref) |
|
225
|
0 |
0 |
wantarray ? : |
|
|
0 |
16 |
unless $st |
|
227
|
3 |
13 |
unless ($r) |
|
230
|
0 |
3 |
wantarray ? : |
|
235
|
0 |
13 |
wantarray ? : |
|
241
|
2 |
0 |
unless $$s{'CanBindSelect'} |
|
243
|
0 |
2 |
unless $st |
|
252
|
0 |
1 |
unless $$s{'CLOBBER'} > 2 |
|
256
|
0 |
1 |
unless $st->execute |
|
263
|
0 |
1 |
unless $$s{'CLOBBER'} > 1 |
|
265
|
1 |
0 |
unless $$s{'CanBindSelect'} |
|
279
|
0 |
12 |
unless ref $value eq 'HASH' |
|
282
|
0 |
12 |
unless $$s{'CLOBBER'} > 0 |
|
288
|
5 |
24 |
if ($_ eq $$s{'key'}) |
|
289
|
0 |
5 |
if $$s{'WARN'} |
|
292
|
0 |
24 |
unless ($$ok{$_}) |
|
293
|
0 |
0 |
if $$s{'WARN'} |
|
298
|
0 |
12 |
unless @fields |
|
304
|
0 |
12 |
if ($$s{'BrokenInsert'}) { } |
|
305
|
0 |
0 |
$s->EXISTS($key) ? : |
|
315
|
6 |
6 |
unless $result |
|
317
|
0 |
12 |
if $s->error |
|
322
|
0 |
12 |
unless %$value |
|
369
|
0 |
1 |
unless $st->execute |
|
384
|
0 |
64 |
if ($$self{'CanBind'}) |
|
385
|
0 |
0 |
unless (not $$self{'CanBindSelect'} and $query =~ /\bwhere\b/i) |
|
387
|
0 |
0 |
unless $sth->execute(@bind_variables) |
|
395
|
0 |
95 |
$$self{'CanBind'} ? : |
|
|
95 |
0 |
defined $value ? : |
|
398
|
6 |
58 |
unless $sth and $sth->execute |
|
404
|
1 |
34 |
unless ($$self{'fields'}) |
|
409
|
0 |
1 |
unless $$self{'CannotListfields'} |
|
412
|
0 |
0 |
unless (not $$self{'CannotListfields'} and defined $sth and $sth->execute) |
|
415
|
0 |
1 |
unless $sth->execute |
|
421
|
0 |
1 |
if ($$self{'CASESENSITIV'}) { } |
|
436
|
52 |
1 |
if $$self{'types'} |
|
439
|
0 |
1 |
if ($$self{'driver'} eq 'Oracle') { } |
|
441
|
0 |
0 |
unless $sth->execute |
|
452
|
0 |
1 |
unless $sth->execute |
|
463
|
23 |
0 |
unless $$s{'CanBindSelect'} |
|
466
|
0 |
23 |
unless @valid_fields |
|
474
|
24 |
0 |
$$valid{$_} ? : |
|
475
|
0 |
23 |
if ($$s{'ENCODING'}) |
|
478
|
22 |
1 |
@$fields == 1 ? : |
|
482
|
0 |
23 |
@results > 1 ? : |
|
495
|
6 |
6 |
$st ? : |
|
502
|
6 |
0 |
unless $$s{'CanBindSelect'} |
|
508
|
0 |
6 |
unless $st |
|
515
|
0 |
18 |
if ($$s{'CanBind'}) |
|
516
|
0 |
0 |
if ($$s{'ENCODING'}) { } |
|
525
|
18 |
0 |
unless ($noquote) |
|
526
|
0 |
18 |
if ($$s{'ENCODING'}) { } |
|
536
|
0 |
0 |
if $$noquote{$$types{$$fields[$i]}} |
|
537
|
0 |
0 |
if ($$s{'driver'} eq 'Oracle' and $$types{$$fields[$i]} eq 'DATE') { } |
|
553
|
0 |
53 |
if (my $noquote = $$s{'NoQuote'}) |
|
554
|
0 |
0 |
$$noquote{$$types{$field}} ? : |
|
557
|
0 |
53 |
if ($$s{'driver'} eq 'Oracle' and $$types{$field} eq 'DATE') { } |
|
567
|
0 |
53 |
if $$s{'ENCODING'} |
|
575
|
5 |
16 |
if (not exists $$self{$tag}) { } |
|
576
|
0 |
5 |
unless $q |
|
577
|
0 |
5 |
if $$self{'DEBUG'} |
|
582
|
0 |
16 |
if $q |
|
615
|
0 |
23 |
unless $$s{'table'} |
|
634
|
0 |
0 |
unless $$s{'table'}{'CLOBBER'} > 1 |
|
659
|
0 |
21 |
if $$s{'table'}{'DEBUG'} |