| blib/lib/JSON/Tiny.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 16 | 20 | 80.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 257 | 0 | 0 | 2 | &blessed($value) and my $sub = $value->can('TO_JSON') |
| 273 | 4 | 23 | 23 | length $check and not $check ^ $check |
| 27 | 2 | 21 | length $check and not $check ^ $check and 0 + $value eq $value | |
| 25 | 2 | 19 | length $check and not $check ^ $check and 0 + $value eq $value and $value * 0 == 0 |
| line | l | !l | condition |
|---|---|---|---|
| 297 | 18 | 1 | pop @lines or '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 56 | 1 | 0 | 4 | ref $_[0] eq 'ARRAY' or ref $_[0] eq 'HASH' |
| 80 | 53 | 0 | 5 | /\G[\x20\x09\x0a\x0d]*\z/cg || _throw('Unexpected data') |