line |
true |
false |
branch |
32
|
0 |
0 |
if (defined $params{'-dbh'} and defined $params{'-connect'}) |
44
|
0 |
0 |
unless (defined $sqlQuery::DBI) |
45
|
0 |
0 |
if (defined $sqlQuery::PARAMS{'-dbh'}) { } |
|
0 |
0 |
elsif (defined $sqlQuery::PARAMS{'-connect'}) { } |
49
|
0 |
0 |
if $@ |
69
|
0 |
0 |
if (&blessed($rows) and $rows->isa('sqlQueryResult')) |
98
|
0 |
0 |
ref $_[0] ? : |
102
|
0 |
0 |
if (not &blessed($sql)) { } |
103
|
0 |
0 |
if not defined $sql or ref $sql or &looks_like_number($sql) |
106
|
0 |
0 |
unless $sql->isa('sqlSelectAssemble') |
123
|
0 |
0 |
if (@_) { } |
|
0 |
0 |
elsif (&blessed($self->{'-sql'})) { } |
129
|
0 |
0 |
if (defined $self->{'-params'}) |
142
|
0 |
0 |
if (@_) { } |
|
0 |
0 |
elsif (&blessed($self->{'-sql'})) { } |
152
|
0 |
0 |
if $@ |
175
|
0 |
0 |
if (defined $self->{'-params'}) |
180
|
0 |
0 |
if (1 == scalar @_ and 'HASH' eq ref $_[0]) { } |
186
|
0 |
0 |
unless defined $self->{'-params'}{$p} |
190
|
0 |
0 |
if 'HASH' eq ref $_ |
200
|
0 |
0 |
unless defined $self->{'-params'}[$index] |
211
|
0 |
0 |
if ($self->{'-named'}) { } |
227
|
0 |
0 |
if $pos >= length $sql or 0 > ($pos = index($sql, $sqlQuery::PARAMETER_PLACEHOLDER, $pos)) |
230
|
0 |
0 |
if $@ |
233
|
0 |
0 |
0 < $pos ? : |
252
|
0 |
0 |
if $pos >= length $sql or 0 > ($pos = index($sql, ':', $pos)) |
256
|
0 |
0 |
if $@ |
259
|
0 |
0 |
0 < $pos ? : |
275
|
0 |
0 |
if (defined $name) { } |
276
|
0 |
0 |
unless (exists $self->{'-params'}{$name}) |
281
|
0 |
0 |
unless (ref $self->{'-params'} and @{$self->{'-params'};}) |
293
|
0 |
0 |
if ('ARRAY' eq ref $self->{'-params'} and @{$self->{'-params'};}) |
308
|
0 |
0 |
unless ($sql =~ /^select/i) |
312
|
0 |
0 |
unless (eval {
do {
$dbh->do($sql);
1
}
}) |
323
|
0 |
0 |
unless (eval {
do {
$self->{'-sth'}->execute;
1
}
}) |
344
|
0 |
0 |
if (ref $table) |
352
|
0 |
0 |
if '*' eq $table |
363
|
0 |
0 |
if ref $table or ".$table" =~ /^(?:[.][[:lower:]_][[:lower:]\d_]*){1,2}$/i |
366
|
0 |
0 |
if ($table =~ /^([[:lower:]_][[:lower:]\d_]*)[.][*]$/i) { } |
378
|
0 |
0 |
unless (defined $value) |
390
|
0 |
0 |
if (not ref $arg) { } |
|
0 |
0 |
elsif ('ARRAY' eq ref $arg) { } |
|
0 |
0 |
elsif (&blessed($arg) and $arg->isa('sqlParameter')) { } |
391
|
0 |
0 |
unless defined $arg |
393
|
0 |
0 |
if $arg =~ /^-?\d+$/ |
395
|
0 |
0 |
if $arg =~ /^-?\d+[.]\d+$/ |
416
|
0 |
0 |
ref $_[0] ? : |
441
|
0 |
0 |
if (&looks_like_number($column)) { } |
443
|
0 |
0 |
if $column > $#row |
449
|
0 |
0 |
unless exists $row->{$column} |
475
|
0 |
0 |
unless defined $self->{'-result'} |
492
|
0 |
0 |
if (@_ and 'ARRAY' eq ref $_[-1]) |
496
|
0 |
0 |
if (not @_) { } |
520
|
0 |
0 |
ref $_[0] ? : |
593
|
0 |
0 |
unless (@{$$self{-'value'};}) |
618
|
0 |
0 |
if (not defined $$self{-'value'}) { } |
|
0 |
0 |
elsif (&looks_like_number($$self{-'value'})) { } |
672
|
0 |
0 |
if ($prevClass) |
674
|
0 |
0 |
unless ref $self->{'prev'} and $self->{'prev'}->isa($prevClass) |
693
|
0 |
0 |
if $self->{'boundArgs'} |
696
|
0 |
0 |
if ($self->{'prev'}) |
711
|
0 |
0 |
if $self->{'prev'} |
730
|
0 |
0 |
ref $_[0] ? : |
763
|
0 |
0 |
if (not 'HASH' eq ref $fieldIn) { } |
772
|
0 |
0 |
if (&blessed($field) and $field->isa('sqlParameter')) |
774
|
0 |
0 |
unless $alias |
776
|
0 |
0 |
if $alias |
784
|
0 |
0 |
if '*' ne $field and 0 == ~index($field, ' ') |
787
|
0 |
0 |
if (not $alias) { } |
790
|
0 |
0 |
unless ~index($alias, ' ') |
806
|
0 |
0 |
if @{$self->{'params'};} |
809
|
0 |
0 |
if (defined $self->{'tables'}) |
816
|
0 |
0 |
if ('HASH' eq ref $tableSpec) { } |
825
|
0 |
0 |
unless $alias |
827
|
0 |
0 |
if $alias |
854
|
0 |
0 |
if (not @_ or 1 == @_ and not defined $_[0] or 2 == @_ and not defined $_[0] and not defined $_[1]) { } |
858
|
0 |
0 |
if @_ |
868
|
0 |
0 |
if (not defined $self->{'limit'}) { } |
|
0 |
0 |
elsif (defined $self->{'offset'}) { } |
901
|
0 |
0 |
if (not defined $self->{'ordering'}) { } |
908
|
0 |
0 |
if ('HASH' eq ref $theOrder) |
913
|
0 |
0 |
unless $direction |
915
|
0 |
0 |
if $direction |
942
|
0 |
0 |
unless ref $condition and $condition->isa('sqlCondition') |
955
|
0 |
0 |
if $self->{'havingCond'} |
964
|
0 |
0 |
if (not defined $self->{'havingCond'} && defined($s = $self->{'havingCond'}->assemble)) { } |
1003
|
0 |
0 |
if (defined $self->{'grouping'}) |
1023
|
0 |
0 |
if defined $condition and not ref $condition && $condition->isa('sqlCondition') |
1036
|
0 |
0 |
if $self->{'whereCond'} |
1045
|
0 |
0 |
if ($self->{'whereCond'} and defined($c = $self->{'whereCond'}->assemble)) |
1069
|
0 |
0 |
if ($self->isa('sqlSelectJoin')) |
1072
|
0 |
0 |
if ref $condition |
1098
|
0 |
0 |
if (not $self->isa('sqlSelectJoin')) { } |
1108
|
0 |
0 |
if (not ref $condition) { } |
|
0 |
0 |
elsif ($condition->isa('sqlCondition')) { } |
1149
|
0 |
0 |
ref $_[0] ? : |
1160
|
0 |
0 |
if (4 == $self->{'type'}) |
1164
|
0 |
0 |
unless ref $self->{'_argument'} and $self->{'_argument'}->isa('sqlCondition') |
1178
|
0 |
0 |
unless $self->{'_parts'} |
1179
|
0 |
0 |
2 == $self->{'type'} ? : |
1185
|
0 |
0 |
unless ref $self->{'_condition'} and $self->{'_condition'}->isa('sqlCondition') |
1202
|
0 |
0 |
if defined $leftConstant |
1211
|
0 |
0 |
if $swap |
1213
|
0 |
0 |
unless ref $lhs |
1214
|
0 |
0 |
unless ref $rhs |
1216
|
0 |
0 |
unless &blessed($lhs) and $lhs->isa('sqlCondition') |
1217
|
0 |
0 |
unless &blessed($rhs) and $rhs->isa('sqlCondition') |
1242
|
0 |
0 |
unless $self->{'_parts'} |
1262
|
0 |
0 |
if (1 == scalar @_ and not defined $_[0] and defined $self->{'_alterForNull'}) |
1264
|
0 |
0 |
$self->{'_alterForNull'} ? : |
1289
|
0 |
0 |
unless @_ |
1296
|
0 |
0 |
unless @_ |
1309
|
0 |
0 |
if (1 == scalar @_) { } |
1393
|
0 |
0 |
3 != scalar @_ ? : |
1407
|
0 |
0 |
unless (&blessed($a) and $a->isa('sqlCondition')) |
1412
|
0 |
0 |
if ($a->{'type'} != $type) |
1428
|
0 |
0 |
unless $self->{'_parts'} |
1439
|
0 |
0 |
unless $self->{'parent'} |
1441
|
0 |
0 |
if $self->{'parent'} |
1463
|
0 |
0 |
unless defined $self->{'parent'} |