Branch Coverage

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


line true false branch
75 0 3 if (defined $opts{'-name'} and not defined $opts{'name'})
76 0 3 if (defined $opts{'-compress'} and not defined $opts{'compress'})
79 0 3 if (exists $opts{'name'})
80 3 0 if (exists $opts{'compress'})
84 0 3 if ref $class
87 0 3 unless $self->is_obj($pdf)
94 2 0 if (defined $compress) { }
121 0 2 if (length $content != 2)
126 2 0 if ($content =~ /^P([1-6])/) { }
128 2 0 if ($info{'type'} > 3) { }
138 0 2 if ($info{'type'} == 1 or $info{'type'} == 4) { }
0 2 elsif ($info{'type'} == 2 or $info{'type'} == 5) { }
152 0 2 if (length $content == 0)
156 2 0 if ($content =~ /(^\d+)$/) { }
162 0 2 if ($width < 1)
170 0 2 if (length $content == 0)
174 2 0 if ($content =~ /(^\d+)$/) { }
180 0 2 if ($height < 1)
187 2 0 if ($info{'bgp'} =~ /^[gp]$/)
190 0 2 if (length $content == 0)
194 2 0 if ($content =~ /(^\d+)$/) { }
200 0 2 if ($max < 1 or $max > 65535)
212 2 0 if ($info{'raw'}) { }
218 2 0 if ($buffer =~ /^\s/) { }
247 2 6 if (length $buffer == 0)
249 0 0 if ($count == 0 and !$qflag || $in_comment)
257 8 0 unless ($in_comment)
260 8 0 if (length $buffer > 0) { }
262 0 8 if ($buffer =~ /^#/) { }
267 0 0 if ($buffer =~ s/^#\n//) { }
0 0 elsif ($buffer =~ s/^#\s*([^\n]*)\n//) { }
276 0 0 if ($count == 0)
291 0 0 if ($qflag and not $in_comment)
297 0 8 if (scalar @comment > 0)
312 0 8 if (length $buffer == 0)
314 0 0 if ($count == 0)
325 0 8 if (length $buffer == 0)
350 1 2 if (ref $file) { }
353 1 1 unless open $inf, "<", $file
368 0 2 if (defined $info->{'error'})
378 0 2 if ($max > 255)
381 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) { }
396 0 0 if (length $content == 0)
398 0 0 if ($row == $h - 1 and $col == $w - 1)
401 0 0 if (length $content == 0)
408 0 0 if ($sample ne 0 and $sample ne 1)
413 0 0 if (length $bits == 8)
419 0 0 if ($bits ne "")
435 0 0 if ($max == 255 or $max == 65535) { }
0 0 elsif ($max > 255) { }
444 0 0 if ($bytes_per_sample == 2)
449 0 0 if (length $content == 0)
455 0 0 if ($content =~ /^\d+$/) { }
456 0 0 if ($content > $max)
466 0 0 if ($s > 0)
479 0 0 if ($max == 255 or $max == 65535) { }
0 0 elsif ($max > 255) { }
488 0 0 if ($bytes_per_sample == 2)
495 0 0 if (length $content == 0)
500 0 0 if ($content =~ /^\d+$/) { }
501 0 0 if ($content > $max)
512 0 0 if ($s > 0)
529 0 0 if ($rc != $bytes)
542 0 0 if ($max == 255 or $max == 65535) { }
0 0 elsif ($max > 255) { }
551 0 0 if ($bytes_per_sample == 2)
557 0 0 if ($rc != $bytes)
562 0 0 if ($s > 0) { }
582 2 0 if ($max == 255 or $max == 65535) { }
0 0 elsif ($max > 255) { }
591 0 2 if ($bytes_per_sample == 2)
597 0 2 if ($rc != $bytes)
602 0 2 if ($s > 0) { }