| lib/Image/Info/PPM.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 22 | 26 | 84.6 |
| line | true | false | branch |
|---|---|---|---|
| 35 | 0 | 20 | if (s/#\s*(.*)//) |
| 39 | 9 | 11 | if (not $type and @header) |
| 41 | 0 | 9 | unless $type =~ s/^P// |
| 42 | 7 | 2 | if $type > 3 |
| 44 | 3 | 6 | if $type eq "pbm" |
| 48 | 0 | 32 | unless (/^\d+$/) |
| 54 | 12 | 8 | unless @header >= $num_wanted |
| 64 | 3 | 5 | if ($type eq 'ppm') { } |
| 71 | 3 | 0 | if ($binary) |
| 80 | 2 | 2 | $type eq 'pbm' ? : |
| 4 | 1 | if $binary | |
| 82 | 3 | 2 | if $type ne "pbm" |
| 87 | 1 | 8 | if (not $read_header) |