Branch Coverage

blib/lib/Perlbal/Plugin/Palimg.pm
Criterion Covered Total %
branch 0 66 0.0


line true false branch
18 0 0 unless $obj
21 0 0 unless $uriref
24 0 0 unless $$uriref =~ m[^/palimg/(.+)\.(\w+)(.*)$]
26 0 0 unless $extra
28 0 0 unless $fn and $palspec
39 0 0 unless $obj and my $palimginfo = $$obj{'scratch'}{'palimg'}
49 0 0 unless $_[0] > 0
54 0 0 unless defined $res
55 0 0 if $res
103 0 0 if (my $pals = $palspec)
105 0 0 if ($pals =~ /^g(${hx}{2,2})(${hx}{6,6})(${hx}{2,2})(${hx}{6,6})$/) { }
0 0 elsif ($pals =~ /^t(${hx}{6,6})(${hx}{6,6})?$/) { }
0 0 elsif (length $pals > 42 or $pals =~ /[^0-9a-f]/) { }
109 0 0 if $from == $to
112 0 0 if ($to < $from)
127 0 0 $td ? :
132 0 0 if $len % 7
145 0 0 if (%pal_colors)
146 0 0 if ($type eq 'gif') { }
0 0 elsif ($type eq 'png') { }
147 0 0 unless PaletteModify::new_gif_palette($data, \%pal_colors)
149 0 0 unless PaletteModify::new_png_palette($data, \%pal_colors)
173 0 0 if (my $tint = $$palref{'tint'})
187 0 0 if $idx >= $pal_size
199 0 0 unless $$data
210 0 0 unless length $header >= 13 + 3 * $gct
225 0 0 if $_[1] + $curidx > $maxlen
232 0 0 unless $PaletteModify::HAVE_CRC
240 0 0 unless $sig eq $png_sig
249 0 0 unless &$read(\$type, 4) == 4
252 0 0 if ($type eq 'IHDR') { }
0 0 elsif ($type eq 'PLTE') { }
258 0 0 unless $color == 3