Branch Coverage

blib/lib/Game/TextMapper/Schroeder/Island.pm
Criterion Covered Total %
branch 61 70 87.1


line true false branch
64 2116 284 if ($altitude->{$coordinates} <= $self->bottom)
70 9648 864 if not $legal or $altitude->{$other} <= $self->bottom
73 1606 510 $ocean ? :
80 65 63 if $self->hotspot->[0] > $self->width - 2 * $self->radius
84 14 49 if (rand() < 0.2) { }
89 27 36 if (rand() < "0.5")
90 12 15 if (rand() > $self->hotspot->[1] / $self->height) { }
100 3166 1757 if ($self->distance($x, $y, @{$self->hotspot;}) <= $self->radius)
109 3166 34634 if ($hot{$coordinates}) { }
111 639 2527 if rand() < "0.2"
114 6891 27743 if rand() < "0.2"
116 30270 7530 unless $change
119 6515 1015 if $altitude->{$coordinates} < $self->bottom
120 0 7530 if $altitude->{$coordinates} > $self->top
127 48 3166 unless $self->legal($x, $y)
129 100 3066 if $altitude->{$other} - $altitude->{$coordinates} > 1
132 100 3066 if $change
145 2116 284 unless $altitude->{$coordinates}
146 42 242 if $world->{$coordinates} =~ /mountain|lake/u
147 181 61 if ($altitude->{$coordinates} == 1) { }
48 13 elsif ($altitude->{$coordinates} == 2) { }
10 3 elsif ($altitude->{$coordinates} == 3) { }
3 0 elsif ($altitude->{$coordinates} == 4) { }
0 0 elsif ($altitude->{$coordinates} > 4) { }
169 184 2804 unless $self->legal($x, $y)
171 2361 443 if $altitude->{$other} == 0
172 30 413 if $altitude->{$coordinates} > $altitude->{$other}
184 2116 284 if $altitude->{$coordinates} == 0
187 6 668 unless $self->legal($x, $y)
189 247 421 if $altitude->{$other} > 0
222 0 156 if $step == $i++
256 0 4 if ($step > 0)
258 0 0 if ($step)
272 0 4 if ($step > 0)
284 2 2 if $url