| blib/lib/IO/Barf.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 10 | 80.0 |
| line | true | false | branch |
|---|---|---|---|
| 23 | 4 | 8 | if (not $ref) { } |
| 3 | 5 | elsif ($ref eq 'GLOB') { } | |
| 3 | 2 | elsif (&blessed($file_or_handler) and $file_or_handler->isa('IO::Handle')) { } | |
| 24 | 0 | 4 | unless open my $ouf, '>', $file_or_handler |
| 27 | 0 | 4 | unless close $ouf |