| blib/lib/JSON/ReadPath.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 3 | 20 | 15.0 |
| line | true | false | branch |
|---|---|---|---|
| 42 | 0 | 2 | unless my $json_str = $self->from_file || $self->string |
| 49 | 2 | 0 | unless my $file = $self->file |
| 51 | 0 | 0 | unless -f $file |
| 52 | 0 | 0 | unless open my $FH, '<', $file |
| 63 | 0 | 1 | unless my $path = shift() |
| 81 | 0 | 0 | if (ref $data) { } |
| 82 | 0 | 0 | if $base_key |
| 84 | 0 | 0 | if (UNIVERSAL::isa($data, 'HASH')) { } |
| 0 | 0 | elsif (UNIVERSAL::isa($data, 'ARRAY')) { } | |
| 86 | 0 | 0 | unless $$data{$base_key . '__KEYS'} |