Branch Coverage

blib/lib/Image/Base/X11/Protocol/Window.pm
Criterion Covered Total %
branch 0 76 0.0


line true false branch
44 0 0 unless (defined $params{'-colormap'})
50 0 0 if (my $win = delete $params{'-window'})
65 0 0 if (my $bitmap_gc = delete $self->{'_bitmap_gc'})
77 0 0 unless (exists $self->{$key})
78 0 0 if ($get_window_attributes{$key})
82 0 0 unless (exists $$self{"-$field"})
97 0 0 if (exists $params{'-drawable'})
108 0 0 if (defined $width or defined $height)
110 0 0 defined $width ? :
0 0 defined $height ? :
123 0 0 if ((my $X = $self->{'-X'})->{'ext'}{'SHAPE'})
126 0 0 if ($x < 0 or $y < 0 or $x > 32767 or $y > 32767)
131 0 0 if (@_ >= 4) { }
132 0 0 if ($colour eq 'None')
147 0 0 unless (_rects_contain_xy($x, $y, @rects))
159 0 0 if ($colour eq 'None' and (my $X = $self->{'-X'})->{'ext'}{'SHAPE'}) { }
162 0 0 unless (Image::Base::X11::Protocol::Drawable::_line_any_positive($x1, $y1, $x2, $y2))
168 0 0 if ($bitmap_width > 32767 or $bitmap_height > 32767 or $x1 < -32768 or $x2 < -32768 or $x1 > 32767 or $x2 > 32767 or $y1 < -32768 or $y2 < -32768 or $y1 > 32767 or $y2 > 32767)
181 0 0 $x1 < $x2 ? :
182 0 0 $y1 < $y2 ? :
199 0 0 if ($colour eq 'None' and (my $X = $self->{'-X'})->{'ext'}{'SHAPE'}) { }
202 0 0 unless ($x2 >= 0 and $y2 >= 0 and $x1 <= 32767 and $y1 <= 32767)
209 0 0 if ($x1 < -1)
210 0 0 if ($y1 < -1)
213 0 0 if ($x2 > 32767)
214 0 0 if ($y2 > 32767)
219 0 0 if ($fill or $width <= 2 or $height <= 2) { }
257 0 0 if ($colour eq 'None' and (my $X = $self->{'-X'})->{'ext'}{'SHAPE'}) { }
261 0 0 unless ($x2 >= 0 and $y2 >= 0 and $x1 <= 32767 and $y1 <= 32767)
265 0 0 if ($x1 < -32768 or $x2 > 32767 or $y1 < -32768 or $y2 > 32767)
274 0 0 if ($w <= 1 or $h <= 1) { }
286 0 0 if ($fill)
307 0 0 if ($colour eq 'None' and (my $X = $self->{'-X'})->{'ext'}{'SHAPE'}) { }
311 0 0 if ($x1 == $x2 and $y1 == $y2)
317 0 0 unless ($x2 >= 0 and $y2 >= 0 and $x1 <= 32767 and $y1 <= 32767)
321 0 0 if ($x1 < -32768 or $x2 > 32767 or $y1 < -32768 or $y2 > 32767)
358 0 0 if ($bitmap_gc) { }
383 0 0 if ($rx <= $x and $rx + $width > $x and $ry <= $y and $ry + $height > $y)