Branch Coverage

blib/lib/PDF/Builder/Resource/XObject/Image/PNM.pm
Criterion Covered Total %
branch 48 156 30.7


line true false branch
68 0 3 if (defined $opts{'-name'} and not defined $opts{'name'})
69 0 3 if (defined $opts{'-compress'} and not defined $opts{'compress'})
72 0 3 if (exists $opts{'name'})
73 3 0 if (exists $opts{'compress'})
77 0 3 if ref $class
80 0 3 unless $self->is_obj($pdf)
87 2 0 if (defined $compress) { }
114 0 2 if (length $content != 2)
119 2 0 if ($content =~ /^P([1-6])/) { }
121 2 0 if ($info{'type'} > 3) { }
131 0 2 if ($info{'type'} == 1 or $info{'type'} == 4) { }
0 2 elsif ($info{'type'} == 2 or $info{'type'} == 5) { }
145 0 2 if (length $content == 0)
149 2 0 if ($content =~ /(^\d+)$/) { }
155 0 2 if ($width < 1)
163 0 2 if (length $content == 0)
167 2 0 if ($content =~ /(^\d+)$/) { }
173 0 2 if ($height < 1)
180 2 0 if ($info{'bgp'} =~ /^[gp]$/)
183 0 2 if (length $content == 0)
187 2 0 if ($content =~ /(^\d+)$/) { }
193 0 2 if ($max < 1 or $max > 65535)
205 2 0 if ($info{'raw'}) { }
211 2 0 if ($buffer =~ /^\s/) { }
240 2 6 if (length $buffer == 0)
242 0 0 if ($count == 0 and !$qflag || $in_comment)
250 8 0 unless ($in_comment)
253 8 0 if (length $buffer > 0) { }
255 0 8 if ($buffer =~ /^#/) { }
260 0 0 if ($buffer =~ s/^#\n//) { }
0 0 elsif ($buffer =~ s/^#\s*([^\n]*)\n//) { }
269 0 0 if ($count == 0)
284 0 0 if ($qflag and not $in_comment)
290 0 8 if (scalar @comment > 0)
305 0 8 if (length $buffer == 0)
307 0 0 if ($count == 0)
318 0 8 if (length $buffer == 0)
343 1 2 if (ref $file) { }
346 1 1 unless open $inf, "<", $file
361 0 2 if (defined $info->{'error'})
371 0 2 if ($max > 255)
374 0 2 if ($info->{'type'} == 1) { }
0 2 elsif ($info->{'type'} == 2) { }
0 2 elsif ($info->{'type'} == 3) { }
0 2 elsif ($info->{'type'} == 4) { }
0 2 elsif ($info->{'type'} == 5) { }
2 0 elsif ($info->{'type'} == 6) { }
389 0 0 if (length $content == 0)
391 0 0 if ($row == $h - 1 and $col == $w - 1)
394 0 0 if (length $content == 0)
401 0 0 if ($sample ne 0 and $sample ne 1)
406 0 0 if (length $bits == 8)
412 0 0 if ($bits ne "")
428 0 0 if ($max == 255 or $max == 65535) { }
0 0 elsif ($max > 255) { }
437 0 0 if ($bytes_per_sample == 2)
442 0 0 if (length $content == 0)
448 0 0 if ($content =~ /^\d+$/) { }
449 0 0 if ($content > $max)
459 0 0 if ($s > 0)
472 0 0 if ($max == 255 or $max == 65535) { }
0 0 elsif ($max > 255) { }
481 0 0 if ($bytes_per_sample == 2)
488 0 0 if (length $content == 0)
493 0 0 if ($content =~ /^\d+$/) { }
494 0 0 if ($content > $max)
505 0 0 if ($s > 0)
522 0 0 if ($rc != $bytes)
535 0 0 if ($max == 255 or $max == 65535) { }
0 0 elsif ($max > 255) { }
544 0 0 if ($bytes_per_sample == 2)
550 0 0 if ($rc != $bytes)
555 0 0 if ($s > 0) { }
575 2 0 if ($max == 255 or $max == 65535) { }
0 0 elsif ($max > 255) { }
584 0 2 if ($bytes_per_sample == 2)
590 0 2 if ($rc != $bytes)
595 0 2 if ($s > 0) { }