| blib/lib/PostgreSQL/PLPerl/Call.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 0 | 11 | 0.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 321 | 0 | 0 | 0 | keys %$row1 == 1 && exists $$row1{$spname} |
| 353 | 0 | 0 | 0 | @$arg_types and $$arg_types[-1] =~ s/\s*\.\.\.// |
| line | l | !l | condition |
|---|---|---|---|
| 304 | 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 |
|---|---|---|---|---|
| 294 | 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] } |