| blib/lib/JSON/Parse.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 16 | 81.2 |
| line | true | false | branch |
|---|---|---|---|
| 41 | 1 | 3 | if ($@) |
| 43 | 1 | 0 | if (ref $error eq 'HASH') { } |
| 71 | 1 | 4 | unless (-f $file_name) |
| 76 | 0 | 4 | unless open my $in, "<:encoding(utf8)", $file_name |
| 81 | 0 | 4 | unless close $in |
| 102 | 2 | 162 | unless ($json) |
| 120 | 2 | 19 | if ($parser->get_warn_only) { } |
| 125 | 1 | 1 | if ($@) |