| blib/lib/Text/APL/Reader.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 12 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 14 | 1 | 21 | if (not ref $input) { } |
| 1 | 20 | elsif (ref $input eq 'GLOB') { } | |
| 19 | 1 | elsif (ref $input eq 'SCALAR') { } | |
| 1 | 0 | elsif (ref $input eq 'CODE') { } | |
| 37 | 0 | 1 | unless open my $fh, '<', $input |
| 39 | 1 | 0 | if (my $charset = $$self{'charset'}) |