| blib/lib/JSON/ize.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 18 | 24 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 20 | 4 | 20 | unless (defined $inp) |
| 23 | 5 | 15 | if (ref $inp) { } |
| 25 | 4 | 1 | $subr && $subr =~ /Y|yamli[sz]e$/ ? : |
| 28 | 4 | 11 | if (looks_like_json($inp)) { } |
| 0 | 11 | elsif (looks_like_yaml($inp)) { } | |
| 37 | 1 | 10 | unless -e $inp |
| 38 | 10 | 0 | if (eval 'require PerlIO::gzip; 1') { } |
| 39 | 0 | 10 | unless open $f, '<:gzip(autopop)', $inp |
| 42 | 0 | 0 | unless open $f, "$inp" |
| 48 | 6 | 0 | if (/at character offset/) |
| 50 | 2 | 4 | if (looks_like_json($j)) |
| 56 | 1 | 1 | if (looks_like_yaml($j)) |