Branch Coverage

blib/lib/Game/TextMapper/Schroeder/Island.pm
Criterion Covered Total %
branch 59 70 84.2


line true false branch
64 2145 255 if ($altitude->{$coordinates} <= $self->bottom)
70 9801 893 if not $legal or $altitude->{$other} <= $self->bottom
73 1567 578 $ocean ? :
80 64 64 if $self->hotspot->[0] > $self->width - 2 * $self->radius
84 13 51 if (rand() < 0.2) { }
89 40 24 if (rand() < "0.5")
90 22 18 if (rand() > $self->hotspot->[1] / $self->height) { }
100 3134 1951 if ($self->distance($x, $y, @{$self->hotspot;}) <= $self->radius)
109 3134 35266 if ($hot{$coordinates}) { }
111 604 2530 if rand() < "0.2"
114 7144 28122 if rand() < "0.2"
116 30652 7748 unless $change
119 6773 975 if $altitude->{$coordinates} < $self->bottom
120 0 7748 if $altitude->{$coordinates} > $self->top
127 31 3134 unless $self->legal($x, $y)
129 85 3049 if $altitude->{$other} - $altitude->{$coordinates} > 1
132 85 3049 if $change
145 2145 255 unless $altitude->{$coordinates}
146 60 195 if $world->{$coordinates} =~ /mountain|lake/u
147 144 51 if ($altitude->{$coordinates} == 1) { }
45 6 elsif ($altitude->{$coordinates} == 2) { }
6 0 elsif ($altitude->{$coordinates} == 3) { }
0 0 elsif ($altitude->{$coordinates} == 4) { }
0 0 elsif ($altitude->{$coordinates} > 4) { }
169 181 2740 unless $self->legal($x, $y)
171 2379 361 if $altitude->{$other} == 0
172 17 344 if $altitude->{$coordinates} > $altitude->{$other}
184 2145 255 if $altitude->{$coordinates} == 0
187 1 710 unless $self->legal($x, $y)
189 197 513 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