| blib/lib/JSON/RPC/Spec/Procedure.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 10 | 10 | 100.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 28 | 15 | 35 | 3 | defined $obj->{'id'} and ref $obj->{'id'} ne "" |
| line | l | !l | condition |
|---|---|---|---|
| 9 | 1 | 8 | $ENV{'PERL_JSON_RPC_SPEC_DEBUG'} || 0 |
| 33 | 46 | 4 | $obj->{'method'} || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 38 | 4 | 5 | 41 | $method eq "" or $method =~ /\A\.|\A[0-9]+\z/ |