| blib/lib/goto/file.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 16 | 93.7 |
| line | true | false | branch |
|---|---|---|---|
| 16 | 2 | 5 | unless $in |
| 21 | 1 | 4 | if (ref $in eq 'ARRAY') { } |
| 39 | 0 | 4 | unless open $fh, '<', $in |
| 60 | 5 | 81 | unless ($self->{'init'}) |
| 62 | 5 | 18 | unless &filter_read() |
| 70 | 30 | 56 | if (@$lines) { } |
| 55 | 1 | elsif ($fh) { } | |
| 78 | 83 | 3 | if (defined $line) |