| blib/lib/JSON/Tiny.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 13 | 17 | 76.4 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 258 | 0 | 0 | 2 | &blessed($value) and my $sub = $value->can('TO_JSON') |
| 269 | 27 | 2 | 21 | B::svref_2object(\$value)->FLAGS & 12288 and 0 + $value eq $value |
| 29 | 2 | 19 | B::svref_2object(\$value)->FLAGS & 12288 and 0 + $value eq $value and $value * 0 == 0 |
| line | l | !l | condition |
|---|---|---|---|
| 290 | 18 | 1 | pop @lines or '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 57 | 1 | 0 | 4 | ref $_[0] eq 'ARRAY' or ref $_[0] eq 'HASH' |
| 81 | 53 | 0 | 5 | /\G[\x20\x09\x0a\x0d]*\z/cg || _throw('Unexpected data') |