line |
true |
false |
branch |
34
|
54 |
0 |
if ($ENV{'DBI_SQL_NANO'} or not eval {
do {
require SQL::Statement;
$SQL::Statement::VERSION ge '1.400'
}
}) { } |
84
|
86 |
664 |
if (/^\s*CREATE\s+TABLE\s+(.*?)\s*\((.+)\)\s*$/is) |
88
|
86 |
0 |
if defined $2 and $2 ne '' |
89
|
0 |
86 |
unless $self->{'column_names'} |
93
|
128 |
622 |
if (/^\s*DROP\s+TABLE\s+(IF\s+EXISTS\s+)?(.*?)\s*$/is) |
97
|
76 |
52 |
if defined $1 and $1 ne '' |
101
|
160 |
590 |
if (/^\s*SELECT\s+(.*?)\s+FROM\s+(\S+)((.*))?/is) |
104
|
160 |
0 |
if defined $1 and $1 ne '' |
105
|
0 |
160 |
unless $self->{'column_names'} |
107
|
58 |
102 |
if (my $clauses = $4) |
109
|
48 |
10 |
if ($clauses =~ /^(.*)\s+ORDER\s+BY\s+(.*)$/is) |
114
|
10 |
48 |
if $clauses |
119
|
214 |
536 |
if (/^\s*INSERT\s+(?:INTO\s+)?(\S+)\s*(\((.*?)\))?\s*VALUES\s*\((.+)\)/is) |
123
|
32 |
182 |
if defined $2 and $2 ne '' |
125
|
214 |
0 |
if defined $4 and $4 ne '' |
126
|
0 |
214 |
unless $self->{'values'} |
130
|
68 |
682 |
if (/^\s*DELETE\s+FROM\s+(\S+)((.*))?/is) |
134
|
34 |
34 |
if defined $3 and $3 ne '' |
138
|
46 |
704 |
if (/^\s*UPDATE\s+(\S+)\s+SET\s+(.+)(\s+WHERE\s+.+)/is) |
141
|
46 |
0 |
if defined $2 and $2 ne '' |
144
|
46 |
0 |
if defined $3 and $3 ne '' |
147
|
48 |
702 |
unless $self->{'command'} and $self->{'table_name'} |
155
|
36 |
12 |
if @clause == 1 |
156
|
0 |
12 |
if @clause > 2 |
158
|
12 |
0 |
if $clause[1] =~ /^ASC$/i or $clause[1] =~ /^DESC$/i |
170
|
164 |
0 |
if ($col =~ /^(\S+?)\s+.+/) { } |
206
|
0 |
46 |
unless $self->{'column_names'} and $self->{'values'} |
212
|
0 |
652 |
unless defined $str |
215
|
164 |
488 |
if ($str =~ /^\?$/) |
224
|
12 |
476 |
if $str =~ /^NULL$/i |
228
|
176 |
300 |
if $str =~ /^'(.+)'$/s |
232
|
190 |
110 |
if DBI::looks_like_number($str) |
245
|
90 |
0 |
if ($str =~ /^\s*WHERE\s+(.*)/i) { } |
256
|
0 |
90 |
unless defined $val1 and defined $op and defined $val2 |
273
|
0 |
502 |
unless $num_placeholders == $num_params |
275
|
64 |
438 |
if (scalar @$params) |
279
|
120 |
0 |
if ($self->{'values'}[$i]{'type'} eq 'placeholder') |
284
|
0 |
64 |
if ($self->{'where_clause'}) |
286
|
0 |
0 |
if ($self->{'where_clause'}{'arg1'}{'type'} eq 'placeholder') |
290
|
0 |
0 |
if ($self->{'where_clause'}{'arg2'}{'type'} eq 'placeholder') |
315
|
40 |
32 |
if ($self->{'ignore_missing_table'} and $@ || @err and grep {$_ =~ /$enoentrx/;} @err, $@) |
321
|
8 |
72 |
if $@ or @err |
322
|
0 |
72 |
unless $table |
342
|
134 |
0 |
unless $table->can('insert_one_row') |
345
|
0 |
134 |
unless $self->{'column_names'} |
346
|
134 |
0 |
if $self->{'column_names'} |
349
|
0 |
134 |
unless $cNum |
361
|
0 |
134 |
if $#$array < $maxCol |
363
|
128 |
6 |
$table->can('insert_new_row') ? : |
378
|
60 |
42 |
if ($self->eval_where($table, $array)) { } |
381
|
8 |
52 |
if ($self->{'fetched_from_key'}) |
387
|
48 |
4 |
if $can_dor |
391
|
2 |
40 |
unless $can_dor |
394
|
16 |
4 |
if ($can_dor) { } |
417
|
0 |
64 |
if (not defined $a && defined $b) { } |
|
64 |
0 |
elsif (DBI::looks_like_number($a) and DBI::looks_like_number($b)) { } |
427
|
0 |
0 |
$case_fold ? : |
441
|
202 |
0 |
if ($self->eval_where($table, $array)) |
443
|
0 |
202 |
if $self->{'fetched_from_key'} |
444
|
96 |
106 |
unless (keys %cols) |
463
|
0 |
202 |
if $self->{'fetched_from_key'} |
466
|
32 |
64 |
if ($self->{'order_clause'}) |
470
|
8 |
24 |
uc $desc eq 'DESC' ? : |
480
|
40 |
24 |
if $desc |
493
|
0 |
34 |
unless $table |
502
|
58 |
2 |
if ($self->eval_where($table, $array)) { } |
504
|
8 |
50 |
if $self->{'fetched_from_key'} and $can_rwu |
505
|
56 |
2 |
if $can_usr |
512
|
8 |
50 |
if ($self->{'fetched_value'}) |
514
|
8 |
0 |
if ($can_usr) { } |
|
0 |
0 |
elsif ($can_uor) { } |
524
|
48 |
2 |
$can_usr ? : |
528
|
2 |
0 |
unless $can_rwu |
531
|
24 |
2 |
if ($can_rwu) { } |
535
|
48 |
0 |
if ($can_usr) { } |
|
0 |
0 |
elsif ($can_uor) { } |
562
|
54 |
238 |
if ($self->{'where_clause'}) |
564
|
54 |
0 |
if (my $col = $self->{'where_clause'}{'arg1'}) |
566
|
54 |
0 |
if $col->{'type'} eq 'column' |
568
|
54 |
0 |
if (my $col = $self->{'where_clause'}{'arg2'}) |
570
|
0 |
54 |
if $col->{'type'} eq 'column' |
585
|
916 |
128 |
if ($stmt_col_name and not $find_in_stmt) |
589
|
916 |
457 |
if uc $k eq uc $stmt_col_name |
593
|
32 |
96 |
if ($stmt_col_name and $find_in_stmt) |
597
|
32 |
0 |
if uc $stmt_col_name eq uc $self->{'column_names'}[$i] |
605
|
178 |
166 |
if uc $dbd_cols[$i] eq uc $stmt_col |
629
|
130 |
0 |
if ($val1->{'type'} eq 'column') { } |
638
|
0 |
130 |
if ($val2->{'type'} eq 'column') { } |
648
|
120 |
10 |
if ($op eq '=' and not $neg and $table->can('fetch_one_row')) |
651
|
16 |
104 |
if ($pred->{'arg1'}{'value'} =~ /^$key_col$/i) |
659
|
0 |
0 |
$match ? : |
|
0 |
114 |
if ($neg) |
666
|
0 |
114 |
if ($op eq 'IS') |
668
|
0 |
0 |
if not defined $val1 or $val1 eq '' |
671
|
0 |
114 |
unless defined $val1 |
672
|
0 |
114 |
unless defined $val2 |
673
|
0 |
114 |
if ($op =~ /LIKE|CLIKE/i) |
679
|
0 |
114 |
if ($op eq 'LIKE') |
680
|
0 |
114 |
if ($op eq 'CLIKE') |
681
|
2 |
112 |
if (DBI::looks_like_number($val1) and DBI::looks_like_number($val2)) { } |
683
|
0 |
2 |
if ($op eq '<') |
684
|
0 |
2 |
if ($op eq '>') |
685
|
2 |
0 |
if ($op eq '=') |
686
|
0 |
0 |
if ($op eq '<>') |
687
|
0 |
0 |
if ($op eq '<=') |
688
|
0 |
0 |
if ($op eq '>=') |
692
|
0 |
112 |
if ($op eq '<') |
693
|
0 |
112 |
if ($op eq '>') |
694
|
112 |
0 |
if ($op eq '=') |
695
|
0 |
0 |
if ($op eq '<>') |
696
|
0 |
0 |
if ($op eq '<=') |
697
|
0 |
0 |
if ($op eq '>=') |
704
|
1490 |
216 |
unless ($self->{'params'}) |
705
|
0 |
216 |
if (defined $val_num) |
710
|
0 |
216 |
wantarray ? : |
719
|
72 |
430 |
if ($@) |
724
|
0 |
430 |
unless $table |
725
|
260 |
170 |
if (not $self->{'column_names'} or $self->{'column_names'}[0] eq '*') |
735
|
0 |
326 |
unless ($self->{'values'}) |
736
|
326 |
0 |
if (defined $val_num) |
740
|
0 |
0 |
if (wantarray) { } |
754
|
470 |
952 |
if ($self->{'column_names'} and $self->{'column_names'}[0] ne '*') |
773
|
0 |
430 |
unless defined $self->{'col_names'} and 'ARRAY' eq ref $self->{'col_names'} |
774
|
430 |
0 |
unless exists $self->{'col_nums'} |
776
|
0 |
430 |
unless defined $self->{'col_nums'} and 'HASH' eq ref $self->{'col_nums'} |
788
|
0 |
668 |
unless $col_names->[$i] |