blib/lib/DBIx/SecureCGI.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 5 | 111 | 4.5 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
129 | 0 | 0 | 0 | $cache and ref $cache eq 'HASH' |
290 | 0 | 0 | 0 | not $func and ref $P->{$k} |
294 | 0 | 0 | 0 | ref $P->{$k} && $func ne 'eq' && $func ne 'ne' |
296 | 0 | 0 | 0 | $v =~ /$cmd->[0]/ms && sprintf($cmd->[1], $f, $v) |
305 | 0 | 0 | 0 | $func and not $func =~ /\Aset_/ms |
319 | 0 | 0 | 0 | $order =~ /\A(\w+)\s*( ASC| DESC|)\z/ms and $qualify{$1} |
326 | 0 | 0 | 0 | $group =~ /\A(\w+)\s*( ASC| DESC|)\z/ms and $qualify{$1} |
381 | 0 | 0 | 0 | $SQL->{'UpdateWhere'} eq '1' and not $P->{'__force'} |
462 | 0 | 0 | 0 | $SQL->{'Where'} eq '1' and not $P->{'__force'} |
478 | 0 | 0 | 0 | $SQL->{'Where'} eq '1' and not $P->{'__force'} |
486 | 0 | 0 | 0 | $res and @tables |
543 | 0 | 0 | 0 | @bind && _is_cb($bind[-1]) |
561 | 0 | 0 | 0 | @bind && _is_cb($bind[-1]) |
line | l | !l | condition |
---|---|---|---|
132 | 0 | 0 | $dbh->{$PRIVATE} //= {} |
228 | 0 | 0 | $2 // 'INNER' |
285 | 0 | 0 | $2 // '' |
286 | 0 | 0 | $func or 'eq' |
313 | 0 | 0 | $SQL{'Where'} ||= '1' |
314 | 0 | 0 | $SQL{'UpdateWhere'} ||= '1' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
78 | 0 | 0 | 320 | not $func or ref $func |
0 | 0 | 320 | not $func or ref $func or not $func =~ /\A[A-Za-z]\w*\z/ms | |
86 | 0 | 0 | 120 | 2 != @{$cmd;} or ref $cmd->[0] ne 'Regexp' |
0 | 0 | 120 | ref $cmd->[1] or 2 != (() = $cmd->[1] =~ /%s/gms) | |
0 | 0 | 120 | 2 != @{$cmd;} or ref $cmd->[0] ne 'Regexp' or (ref $cmd->[1] or 2 != (() = $cmd->[1] =~ /%s/gms)) | |
161 | 0 | 0 | 0 | 1 != @pk or $pk[0] != 0 |
175 | 0 | 0 | 0 | not @tables or &any(sub { /\A\z|\s/ms; } , @tables) |
303 | 0 | 0 | 0 | not $func or $func =~ /\Aset_/ms |
335 | 0 | 0 | 0 | $P->{'__limit'} // () |
387 | 0 | 0 | 0 | $SQL->{'Limit'} || () |
466 | 0 | 0 | 0 | $SQL->{'Limit'} || () |
483 | 0 | 0 | 0 | $SQL->{'Limit'} || () |
504 | 0 | 0 | 0 | $SQL->{'Order'} || () |
0 | 0 | 0 | $SQL->{'SelectLimit'} || () | |
505 | 0 | 0 | 0 | $cb // () |
514 | 0 | 0 | 0 | $cb // () |
528 | 0 | 0 | 0 | $SQL->{'Group'} || () |
0 | 0 | 0 | $SQL->{'Order'} || () | |
0 | 0 | 0 | $SQL->{'SelectLimit'} || () | |
538 | 0 | 0 | 0 | $ref eq 'CODE' || $ref eq 'AnyEvent::CondVar' |