| blib/lib/PostgreSQL/PLPerl/Call.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 0 | 11 | 0.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 322 | 0 | 0 | 0 | keys %$row1 == 1 && exists $row1->{$spname} |
| 354 | 0 | 0 | 0 | @$arg_types and $arg_types->[-1] =~ s/\s*\.\.\.// |
| line | l | !l | condition |
|---|---|---|---|
| 305 | 0 | 0 | $sig_cache{"$stdsig.$arity"} ||= [$spname, scalar _mk_process_args($arg_types), scalar _mk_process_call($fullspname, $arity, $arg_types), $fullspname, $stdsig] |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 295 | 0 | 0 | 0 | $sig_cache{"$sig.$arity"} ||= do { croak("Can't parse '${sig}'") unless my($stdsig, $fullspname, $spname, $arg_types) = _parse_signature($sig, $arity); warn "parsed call($sig) => $stdsig\n" if $debug; $sig_cache{"$stdsig.$arity"} ||= [$spname, scalar _mk_process_args($arg_types), scalar _mk_process_call($fullspname, $arity, $arg_types), $fullspname, $stdsig] } |