| lib/Image/Info/PPM.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 21 | 26 | 80.7 |
| line | true | false | branch |
|---|---|---|---|
| 36 | 0 | 18 | if (s/#\s*(.*)//) |
| 40 | 8 | 10 | if (not $type and @header) |
| 42 | 0 | 8 | unless $type =~ s/^P// |
| 43 | 7 | 1 | if $type > 3 |
| 45 | 2 | 6 | if $type eq "pbm" |
| 49 | 0 | 31 | unless (/^\d+$/) |
| 55 | 10 | 8 | unless @header >= $num_wanted |
| 65 | 3 | 5 | if ($type eq 'ppm') { } |
| 72 | 3 | 0 | if ($binary) |
| 81 | 2 | 2 | $type eq 'pbm' ? : |
| 4 | 1 | if $binary | |
| 83 | 3 | 2 | if $type ne "pbm" |
| 88 | 0 | 8 | if (not $read_header) |