| line |
true |
false |
branch |
|
22
|
938 |
661 |
if (builtin::blessed($me)) |
|
41
|
0 |
0 |
if $info and @$info == 0 |
|
42
|
0 |
0 |
unless $info and @$info == 1 and $info->[0][2] eq $table |
|
51
|
2 |
2 |
unless @$cols |
|
72
|
2 |
0 |
if (my $sth = $me->rdbh->primary_key_info(undef, $schema, $table)) |
|
80
|
0 |
25 |
unless $table =~ /^(?:("|)(.+)\1\.|)("|)(.+)\3$/u |
|
116
|
398 |
48 |
if $me->config("QuoteIdentifier") |
|
125
|
90 |
0 |
if (my $hook = $me->config("HookSQL")) |
|
128
|
90 |
0 |
unless my $dbg = $me->config("DebugSQL") |
|
134
|
0 |
0 |
if ($dbg > 1) { } |
|
154
|
37 |
95 |
if $clause = $class->_build_where($me) |
|
155
|
7 |
125 |
if $clause = $class->_build_group($me) |
|
156
|
4 |
128 |
if $clause = $class->_build_having($me) |
|
157
|
58 |
74 |
if $clause = $class->_build_order($me) |
|
158
|
15 |
117 |
if $clause = $class->_build_limit($me) |
|
166
|
216 |
0 |
exists $h->{$_} ? : |
|
172
|
0 |
6 |
if $class->_build_group($me) |
|
173
|
0 |
6 |
if $class->_build_having($me) |
|
177
|
5 |
1 |
if $clause = $class->_build_where($me) |
|
178
|
0 |
6 |
if $clause = $class->_build_order($me) |
|
179
|
0 |
6 |
if $clause = $class->_build_limit($me) |
|
187
|
24 |
0 |
exists $h->{$_} ? : |
|
193
|
0 |
1 |
if $class->_build_group($me) |
|
196
|
1 |
0 |
if $clause = $class->_build_where($me) |
|
197
|
0 |
1 |
if $clause = $class->_build_order($me) |
|
198
|
0 |
1 |
if $clause = $class->_build_limit($me) |
|
206
|
3 |
0 |
exists $h->{$_} ? : |
|
214
|
54 |
125 |
defined $alias ? : |
|
221
|
1 |
131 |
$h->{'Show_Distinct'} ? : |
|
223
|
46 |
86 |
unless @{$h->{'select'};} |
|
229
|
21 |
105 |
_isa($_, 'DBIx::DBO::Table', 'DBIx::DBO::Query') ? : |
|
239
|
15 |
152 |
if exists $h->{'from_sql'} |
|
247
|
17 |
10 |
if $$h{"join$i"} |
|
258
|
42 |
38 |
if ref $col |
|
268
|
15 |
43 |
$_[2] eq 'join_on' ? : |
|
274
|
8 |
51 |
if $col->[0] == $me |
|
278
|
50 |
12 |
if $col->[0] == $tbl |
|
285
|
14 |
81 |
if (ref $col) |
|
286
|
14 |
0 |
if _isa($col, "DBIx::DBO::Column") |
|
305
|
20 |
120 |
if (ref $val eq 'SCALAR') { } |
|
|
22 |
98 |
elsif (ref $val eq 'HASH') { } |
|
|
6 |
92 |
elsif (ref $val eq 'ARRAY') { } |
|
|
13 |
79 |
elsif (_isa($val, 'DBIx::DBO::Column')) { } |
|
306
|
0 |
0 |
$c{'Check'} eq 'Column' ? : |
|
|
0 |
20 |
unless defined $$val |
|
310
|
12 |
10 |
if exists $val->{'FUNC'} |
|
311
|
8 |
14 |
if exists $val->{'AS'} |
|
312
|
3 |
19 |
if (exists $val->{'ORDER'}) |
|
313
|
0 |
3 |
unless $val->{'ORDER'} =~ /^(A|DE)SC$/iu |
|
316
|
1 |
21 |
if exists $val->{'COLLATE'} |
|
317
|
12 |
10 |
if (exists $val->{'COL'}) { } |
|
|
8 |
2 |
elsif (exists $val->{'VAL'}) { } |
|
318
|
0 |
12 |
if exists $val->{'VAL'} |
|
319
|
1 |
11 |
ref $val->{'COL'} eq 'ARRAY' ? : |
|
322
|
3 |
5 |
ref $val->{'VAL'} eq 'ARRAY' ? : |
|
334
|
32 |
95 |
if (defined $func) { } |
|
|
0 |
184 |
elsif ($with != 1 and $c{'Check'} ne 'Auto') { } |
|
336
|
1 |
31 |
if $need != $with |
|
338
|
0 |
0 |
$c{'Check'} eq 'Column' ? : |
|
350
|
14 |
6 |
if ($1 eq '?') { } |
|
357
|
1 |
514 |
if exists $opt->{'COLLATE'} |
|
358
|
28 |
487 |
if exists $opt->{'AS'} |
|
359
|
8 |
507 |
if exists $opt->{'ORDER'} |
|
362
|
162 |
300 |
if (not ref $_) { } |
|
|
263 |
37 |
elsif (_isa($_, 'DBIx::DBO::Column')) { } |
|
|
8 |
29 |
elsif (ref $_ eq 'SCALAR') { } |
|
|
29 |
0 |
elsif (_isa($_, 'DBIx::DBO::Query')) { } |
|
375
|
362 |
153 |
unless (defined $func) |
|
376
|
0 |
362 |
if @ary != 1 |
|
383
|
0 |
153 |
if @ary != 1 |
|
393
|
14 |
125 |
if exists $h->{'Quick_Where'} |
|
394
|
32 |
107 |
if exists $h->{'where'} |
|
406
|
17 |
124 |
if (ref $wh->[0]) { } |
|
407
|
10 |
7 |
$ag eq 'OR' ? : |
|
412
|
59 |
65 |
if ($ag eq ($force || _op_ag($op))) |
|
416
|
20 |
18 |
if ref $whs[$i][0] or $ag ne ($whs[$i][7] || _op_ag($whs[$i][0])) |
|
418
|
0 |
18 |
if $whs[$i][2] ne $fld_func |
|
422
|
18 |
0 |
ref $l eq 'ARRAY' ? : |
|
|
18 |
0 |
ref $fld eq 'ARRAY' ? : |
|
|
8 |
10 |
if (ref $l eq "ARRAY" ? join($", @$l) : $l) ne (ref $fld eq "ARRAY" ? join($", @$fld) : $fld) |
|
428
|
116 |
25 |
@ary == 1 ? : |
|
434
|
22 |
65 |
if $_[0] eq "=" or $_[0] eq "IS" or $_[0] eq "<=>" or $_[0] eq "IN" or $_[0] eq "BETWEEN" |
|
435
|
35 |
30 |
if $_[0] eq "<>" or $_[0] eq "IS NOT" or $_[0] eq "NOT IN" or $_[0] eq "NOT BETWEEN" |
|
446
|
0 |
22 |
unless @_ & 1 |
|
452
|
1 |
18 |
if (ref $val eq 'SCALAR' and $$val =~ /^\s*(?:NOT\s+)NULL\s*$/isu) { } |
|
|
2 |
16 |
elsif (ref $val eq 'ARRAY') { } |
|
|
15 |
1 |
elsif (defined $val) { } |
|
455
|
0 |
2 |
unless @$val |
|
470
|
0 |
6 |
if @_ & 1 |
|
477
|
7 |
1 |
unless $remove_duplicates{$col}++ |
|
506
|
6 |
132 |
if exists $h->{'having'} |
|
520
|
64 |
0 |
unless defined $h->{'limit'} |
|
522
|
0 |
0 |
$h->{'limit'}[0] >= 0 ? : |
|
523
|
0 |
0 |
if $h->{'limit'}[1] |
|
535
|
0 |
1 |
if $opt eq "OnRowUpdate" and $val and $val ne "empty" and $val ne "simple" and $val ne "reload" |
|
537
|
1 |
2 |
if $opt eq "UseHandle" and $val and $val ne "read-only" and $val ne "read-write" |
|
548
|
0 |
1 |
if (exists $me->{'cache'}) |
|
551
|
0 |
1 |
unless $me->{'sth'} or $me->run |
|
554
|
0 |
1 |
$rows == -1 ? : |
|
577
|
0 |
0 |
if (ref $opt{'rows'}[0] eq 'ARRAY') { } |
|
598
|
2 |
2 |
if (ref $opt{'rows'}[0] eq 'ARRAY') { } |
|
603
|
2 |
6 |
if ($prev_vals ne $vals) |
|
604
|
0 |
2 |
unless $sth = $me->dbh->prepare($sql . $vals) |
|
607
|
0 |
8 |
unless $rv += $sth->execute(@bind) |
|
614
|
2 |
6 |
if ($prev_vals ne $vals) |
|
615
|
0 |
2 |
unless $sth = $me->dbh->prepare($sql . $vals) |
|
618
|
0 |
8 |
unless $rv += $sth->execute(@bind) |
|
632
|
4 |
0 |
if ($on_row_update ne "empty") |
|
638
|
1 |
4 |
if $cant_update[$me->_column_idx($update[0])] = defined $update[1][1] || @{$update[1][0];} != 1 || ref $update[1][0][0] && (!_isa($update[1][0][0], 'DBIx::DBO::Column') || $cant_update[$me->_column_idx($update[1][0][0])]) |
|
647
|
0 |
4 |
if ref $val |
|
652
|
3 |
1 |
unless grep $_, @cant_update |
|
654
|
1 |
0 |
if ($on_row_update eq "reload") |
|
658
|
1 |
0 |
unless (grep $cant_update[$_], @cidx) |
|
680
|
5 |
0 |
@{$tbl->{'PrimaryKeys'};} ? : |
|
682
|
0 |
5 |
unless defined $i |
|
690
|
0 |
5 |
exists $$me->{'Parent'} ? : |
|
692
|
5 |
0 |
if exists $bd->{'From_Bind'} |
|
709
|
3 |
21 |
if ($rv) { } |
|
710
|
0 |
3 |
if @warn |
|
713
|
1 |
20 |
unless ("$@" =~ / \Q$file.pm\E in \@INC /u) |
|
726
|
11 |
12 |
unless (exists $inheritance{$class}{$dbd}) |
|
728
|
11 |
0 |
unless (@{$dbd_class . '::ISA';}) |
|
731
|
1 |
10 |
if @isa |