blib/lib/SQL/Abstract.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 100 | 141 | 70.9 |
line | l | !l | condition |
---|---|---|---|
980 | 0 | 9 | &belch("Supplying an undefined argument to '@{[uc $op];}' is deprecated") && 'is' |
0 | 32 | &belch("Supplying an undefined argument to '@{[uc $op];}' is deprecated") && 'is not' |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
80 | 28 | 0 | 9 | ref $_[0] eq 'REF' && ref ${$_[0];} eq 'ARRAY' |
127 | 43 | 0 | 2 | ref $_[0] eq 'HASH' && keys %{$_[0];} == 1 && exists $_[0]{'-value'} |
3 | 8 | 32 | defined($_[1] = &Scalar::Util::blessed($_[0])) && (grep({*{qq[${_}::(""];}{'CODE'};} @{$_[2] = &mro::get_linear_isa($_[1]);}) || (grep({*{"${_}::(0+";}{'CODE'};} @{$_[2];}) || grep({*{"${_}::(bool";}{'CODE'};} @{$_[2];})) && !((($_[3]) = grep({*{"${_}::()";}{'CODE'};} @{$_[2];})) && defined ${"$_[3]::()";} && !${"$_[3]::()";})) | |
147 | 603 | 6 | 2 | $opt{'case'} and $opt{'case'} ne 'lower' |
526 | 46 | 0 | 463 | defined $sql && length $sql |
578 | 22 | 636 | 30 | defined $el and not length $el |
655 | 10 | 9 | 0 | defined $self->{'_nested_func_lhs'} and $self->{'_nested_func_lhs'} eq $k |
687 | 239 | 205 | 2 | not defined $self->{'_nested_func_lhs'} and &List::Util::first(sub { $op =~ /$_->{'regex'}/; } , @{$$self{'special_ops'};}) |
879 | 0 | 23 | 22 | defined $v[0] && $v[0] =~ /^ - (?: AND|OR ) $/xi |
932 | 546 | 1 | 41 | ref $val eq 'HASH' and keys %$val == 1 |
547 | 9 | 32 | ref $val eq 'HASH' and keys %$val == 1 and exists $val->{'-value'} | |
9 | 4 | 28 | ref $val eq 'HASH' and keys %$val == 1 and exists $val->{'-value'} and not defined $val->{'-value'} | |
997 | 554 | 0 | 7 | defined $all_sql && $all_sql |
1033 | 32 | 72 | 2 | defined $vals[0] and $vals[0] =~ /^ - (AND|OR) $/xi |
1041 | 64 | 2 | 40 | @vals > 1 and !$logic || $logic eq 'OR' |
2 | 5 | 35 | @vals > 1 and !$logic || $logic eq 'OR' and $op =~ /$self->{'inequality_op'}/xi || $op =~ /$self->{'not_like_op'}/ | |
1066 | 0 | 0 | 16 | &belch("Supplying an empty arrayref to '@{[uc $op];}' is deprecated") && $self->{'sqlfalse'} |
0 | 0 | 24 | &belch("Supplying an empty arrayref to '@{[uc $op];}' is deprecated") && $self->{'sqltrue'} | |
1211 | 1 | 34 | 2 | defined $vals and not ref $vals |
1313 | 0 | 5 | 1 | defined $remainder and $remainder =~ /\S/ |
line | l | !l | condition |
---|---|---|---|
153 | 49 | 562 | $opt{'bindtype'} ||= 'normal' |
156 | 9 | 602 | $opt{'cmp'} ||= '=' |
167 | 0 | 611 | $opt{'sqltrue'} ||= '1=1' |
168 | 0 | 611 | $opt{'sqlfalse'} ||= '0=1' |
171 | 1 | 610 | $opt{'special_ops'} ||= [] |
176 | 0 | 611 | $opt{'unary_ops'} ||= [] |
214 | 49 | 0 | shift() || (return) |
366 | 38 | 0 | shift() || (return) |
463 | 102 | 0 | shift() || '*' |
903 | 1 | 582 | $logic ||= 'and' |
1446 | 449 | 35 | $_[0]{'name_sep'} || '' |
1530 | 3164 | 2 | $ref || 'SCALAR' |
1582 | 6 | 0 | shift() || (return) |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
143 | 0 | 611 | 0 | ref $self || $self |
187 | 0 | 611 | 0 | $opt{'injection_guard'} ||= qr/ \; | ^ \s* go \s /mix |
427 | 0 | 0 | 4 | @rest or not $op =~ /^\-(.+)/ |
568 | 143 | 252 | 0 | $logic || $self->{'logic'} |
569 | 72 | 323 | 0 | $logic eq 'AND' or $logic eq 'OR' |
655 | 182 | 0 | 19 | &List::Util::first(sub { $op =~ /$_->{'regex'}/; } , @{$$self{'unary_ops'};}) or defined $self->{'_nested_func_lhs'} and $self->{'_nested_func_lhs'} eq $k |
822 | 2 | 0 | 6 | not defined $rhs or length ref $rhs |
1041 | 40 | 0 | 2 | !$logic || $logic eq 'OR' |
11 | 25 | 4 | $op =~ /$self->{'inequality_op'}/xi || $op =~ /$self->{'not_like_op'}/ | |
1180 | 0 | 0 | 2 | @rest or not $func =~ /^ \- (.+)/x |
1237 | 0 | 0 | 1 | @rest or not $func =~ /^ \- (.+)/x |
1376 | 2 | 0 | 38 | @rest or not $key =~ /^-(desc|asc)/i |
1441 | 2 | 482 | 0 | $_[0]{'escape_char'} || $r |
1477 | 0 | 10 | 21 | not defined $_ or ref $_ ne 'ARRAY' |
10 | 0 | 21 | not defined $_ or ref $_ ne 'ARRAY' or @$_ != 2 | |
1536 | 1972 | 251 | 3156 | $try[0] eq 'SCALAR' or $try[0] eq 'UNDEF' |
1550 | 2663 | 0 | 0 | $method || &puke("cannot dispatch on '${meth_prefix}' for " . $self->_refkind($data)) |