Branch Coverage

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


line true false branch
64 2155 245 if ($altitude->{$coordinates} <= $self->bottom)
70 9922 818 if not $legal or $altitude->{$other} <= $self->bottom
73 1625 530 $ocean ? :
80 75 53 if $self->hotspot->[0] > $self->width - 2 * $self->radius
84 16 37 if (rand() < 0.2) { }
89 19 34 if (rand() < "0.5")
90 14 5 if (rand() > $self->hotspot->[1] / $self->height) { }
100 2592 1602 if ($self->distance($x, $y, @{$self->hotspot;}) <= $self->radius)
109 2592 29208 if ($hot{$coordinates}) { }
111 518 2074 if rand() < "0.2"
114 5832 23376 if rand() < "0.2"
116 25450 6350 unless $change
119 5534 816 if $altitude->{$coordinates} < $self->bottom
120 0 6350 if $altitude->{$coordinates} > $self->top
127 40 2592 unless $self->legal($x, $y)
129 96 2496 if $altitude->{$other} - $altitude->{$coordinates} > 1
132 96 2496 if $change
145 2155 245 unless $altitude->{$coordinates}
146 50 195 if $world->{$coordinates} =~ /mountain|lake/u
147 143 52 if ($altitude->{$coordinates} == 1) { }
40 12 elsif ($altitude->{$coordinates} == 2) { }
9 3 elsif ($altitude->{$coordinates} == 3) { }
3 0 elsif ($altitude->{$coordinates} == 4) { }
0 0 elsif ($altitude->{$coordinates} > 4) { }
169 182 2729 unless $self->legal($x, $y)
171 2380 349 if $altitude->{$other} == 0
172 14 335 if $altitude->{$coordinates} > $altitude->{$other}
184 2155 245 if $altitude->{$coordinates} == 0
187 4 640 unless $self->legal($x, $y)
189 199 441 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