| blib/lib/App/JsonLogUtils.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 28 | 42.8 |
| line | true | false | branch |
|---|---|---|---|
| 35 | 5 | 0 | if ref $path |
| 37 | 0 | 0 | unless open my $fh, '<', $path |
| 72 | 0 | 0 | if ($stop) |
| 84 | 0 | 0 | if ($end < $cur) { } |
| 93 | 0 | 0 | if $eof |
| 96 | 0 | 0 | if (defined(my $line = readline $fh)) |
| 121 | 0 | 17 | unless ($line) |
| 128 | 0 | 17 | if ($@) |
| 144 | 0 | 1 | ref $cols ? : |
| 148 | 0 | 6 | unless $obj->{$_} |
| 157 | 0 | 2 | ref $fields ? : |
| 159 | 1 | 1 | if ($inverse) { } |
| 191 | 4 | 4 | $inverse ? : |
| 4 | 4 | unless $inverse ? !($obj->{$field} =~ /$pattern/) : $obj->{$field} =~ /$pattern/ |