| blib/lib/Text/APL/Writer.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 12 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 14 | 1 | 23 | if (not ref $output) { } |
| 1 | 22 | elsif (ref $output eq 'GLOB') { } | |
| 21 | 1 | elsif (ref $output eq 'SCALAR') { } | |
| 1 | 0 | elsif (ref $output eq 'CODE') { } | |
| 15 | 0 | 1 | unless open my $fh, '>', $output |
| 23 | 24 | 20 | if defined $_[0] |