| line |
true |
false |
branch |
|
29
|
0 |
11 |
unless $where |
|
30
|
0 |
11 |
unless ref $where eq 'HASH' and %$where |
|
32
|
0 |
11 |
unless $sql =~ /WHERE/io |
|
39
|
0 |
14 |
unless $where |
|
40
|
0 |
14 |
unless ref $where eq 'HASH' and %$where |
|
42
|
0 |
14 |
unless $sql =~ /WHERE/io |
|
50
|
0 |
51 |
if $limit |
|
52
|
0 |
51 |
unless $class->execute($sql, \$data, \@binds) |
|
61
|
0 |
49 |
unless $class->execute($sql, \$data, \@binds) |
|
70
|
0 |
49 |
if $$args{'use_index'} |
|
72
|
42 |
7 |
if $where |
|
73
|
0 |
49 |
if $$args{'group'} |
|
74
|
4 |
45 |
if $$args{'order'} |
|
82
|
23 |
26 |
if (ref $where eq 'ARRAY') { } |
|
|
16 |
10 |
elsif (ref $where eq 'HASH') { } |
|
|
3 |
7 |
elsif ($where) { } |
|
84
|
1 |
22 |
if ($sql =~ /\s*:[A-Za-z_][A-Za-z0-9_]+\s*/o) { } |
|
85
|
0 |
1 |
if @$where % 2 |
|
89
|
0 |
1 |
unless exists $named_values{$1} |
|
91
|
0 |
1 |
if (ref $value eq 'ARRAY') { } |
|
115
|
10 |
39 |
if ($$args{'offset'} or $$args{'limit'}) |
|
117
|
1 |
9 |
if ($$args{'offset'} and $$args{'offset'} =~ /^\d+$/o) |
|
120
|
10 |
0 |
$$args{'limit'} =~ /^\d+$/o ? : |
|
128
|
1 |
22 |
if ($_[0] and ref $_[0] eq 'HASH') |
|
131
|
3 |
20 |
if ($_[1]) { } |
|
|
20 |
0 |
elsif ($_[0]) { } |
|
133
|
0 |
3 |
unless my $master = $args{'master'} |
|
134
|
1 |
2 |
ref $master eq 'ARRAY' ? : |
|
136
|
3 |
0 |
ref $slave eq 'ARRAY' ? : |
|
138
|
1 |
19 |
ref $_[0] eq 'ARRAY' ? : |
|
154
|
112 |
415 |
if ($sql and $sql =~ /^SELECT/io) |
|
167
|
504 |
0 |
$class->cache_connection ? : |
|
176
|
0 |
428 |
unless $sql |
|
177
|
361 |
67 |
ref $binds eq 'ARRAY' ? : |
|
179
|
351 |
77 |
@bind_values ? : |
|
181
|
0 |
0 |
if carp($dbh->errstr) |
|
|
0 |
428 |
unless ($sth) |
|
182
|
0 |
428 |
if ($DEBUG) |
|
183
|
0 |
0 |
defined $_ ? : |
|
190
|
0 |
0 |
defined $data ? : |
|
196
|
105 |
323 |
if (defined $data) { } |
|
197
|
0 |
105 |
unless $sth->execute(@bind_values) |
|
200
|
0 |
323 |
unless ($sth->execute(@bind_values)) |
|
206
|
0 |
428 |
if ($@) |
|
210
|
218 |
210 |
if ($sql =~ /^insert/io) |
|
224
|
0 |
13 |
unless my $table = shift() |
|
226
|
0 |
13 |
if ($class->vendor eq 'MySQL') { } |
|
227
|
0 |
0 |
unless my $sth = $dbh->column_info(undef, undef, $table, '%') |
|
229
|
0 |
0 |
if $dbh->err |
|
230
|
0 |
0 |
unless my(@cols) = @{$sth->fetchall_arrayref({});} |
|
244
|
0 |
3 |
unless my $table = shift() |
|
245
|
0 |
3 |
if ($class->vendor eq 'MySQL') { } |
|
248
|
0 |
0 |
unless $class->execute($sql, \$data) |
|
250
|
0 |
0 |
unless @$data |
|
263
|
0 |
18 |
unless my $table = shift() |
|
265
|
18 |
0 |
if (my $sth = $class->dbh->column_info(undef, undef, $table, '%')) { } |
|
266
|
0 |
18 |
if $dbh->err |
|
267
|
0 |
18 |
unless my(@cols) = @{$sth->fetchall_arrayref({});} |
|
274
|
0 |
0 |
unless my $d = $class->select($table, '*', undef, '', {'limit', 1}) |