Branch Coverage

blib/lib/Collision/2D/Entity/Circle.pm
Criterion Covered Total %
branch 48 52 92.3


line true false branch
60 2 790 if ($x - $r > $w or $y - $r > $h or $x + $r < 0 or $y + $r < 0)
67 353 437 if $x ** 2 + $y ** 2 < $r ** 2
68 67 370 if ($x - $w) ** 2 + $y ** 2 < $r ** 2
69 58 312 if ($x - $w) ** 2 + ($y - $h) ** 2 < $r ** 2
70 30 282 if $x ** 2 + ($y - $h) ** 2 < $r ** 2
72 46 236 if ($x - $w / 2) ** 2 + ($y - $h / 2) ** 2 < $r ** 2
76 96 204 if $x > 0 and $y > 0 and $x < $w and $y < $h
98 0 44 if ($x1 > $r and $x2 > $r)
101 0 44 if ($x1 + $w < -$r and $x2 + $w < -$r)
104 1 43 if ($y1 > $r and $y2 > $r)
107 0 43 if ($y1 + $h < -$r and $y2 + $h < -$r)
110 3 40 if (($x1 + $w / 2) ** 2 + ($y1 + $h / 2) ** 2 < $r ** 2)
144 84 36 unless $collision
161 2 38 if ($x1 + $w < -$r and $x2 + $w > -$r)
165 13 27 if ($x1 > $r and $x2 < $r)
169 8 32 if ($y1 + $h < -$r and $y2 + $h > -$r)
173 27 13 if ($y1 > $r and $y2 < $r)
185 16 34 unless $collision
193 3 37 unless @collisions
224 4 153 if ($x1 ** 2 + $y1 ** 2 < $self->radius ** 2)
228 67 86 if ($x2 - $x1 == 0 or abs(($y2 - $y1) / ($x2 - $x1)) > 100)
229 0 67 if ($y2 - $y1 == 0)
244 71 82 unless $blah > 0
249 111 53 unless $_ >= $x1 and $_ <= $x2
252 26 56 unless defined $xi[0]
284 1 5 unless $collision