| blib/lib/Image/Pbm.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 6 | 12 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 13 | 0 | 1 | unless my $file = shift() || $self->get(-'file') |
| 15 | 0 | 1 | unless open my $f, $file |
| 19 | 0 | 1 | if $$h{'error'} |
| 20 | 0 | 1 | if $$h{'type'} != 1 |
| 31 | 0 | 1 | unless my $file = shift() || $self->get(-'file') |
| 38 | 0 | 1 | unless open my $f, ">$file" |