| line |
true |
false |
branch |
|
105
|
0 |
1686 |
unless defined $i |
|
106
|
1686 |
0 |
unless ref $hex |
|
144
|
1775 |
0 |
unless defined $y |
|
145
|
1587 |
89 |
if $x > 0 and $x <= $self->width and $y > 0 and $y <= $self->height |
|
194
|
1 |
0 |
if $edges < 0 |
|
197
|
0 |
0 |
if ($edge eq 'west') { } |
|
|
0 |
0 |
elsif ($edge eq 'east') { } |
|
|
0 |
0 |
elsif ($edge eq 'north') { } |
|
|
0 |
0 |
elsif ($edge eq 'south') { } |
|
218
|
0 |
0 |
if ($self->world->{$other} ne "ocean" and rand() < "0.333333333333333") |
|
227
|
0 |
0 |
if $seen{$other} |
|
229
|
0 |
0 |
if ($self->world->{$other} ne "ocean" and rand() < "0.5") |
|
235
|
0 |
0 |
if $self->world->{$_} ne "ocean" |
|
|
0 |
0 |
if (&any(sub {
$self->world->{$_} ne "water" if $self->world->{$_} ne "ocean";
}
, $self->all_neighbors($hex))) |
|
260
|
2 |
0 |
if ($self->world->{$coord} eq "plain") |
|
269
|
48 |
150 |
if ($self->world->{$other} eq "plain") |
|
270
|
18 |
30 |
if ($chance and rand() < $chance) { } |
|
281
|
21 |
145 |
if ($self->world->{$other} eq "plain") |
|
310
|
1 |
19 |
if $seen{$hex} |
|
318
|
274 |
11 |
unless not $self->legal($_) |
|
319
|
11 |
43 |
if ($end) |
|
327
|
10 |
33 |
if ($seen{$next}) |
|
333
|
0 |
2 |
if ($seen{$next}) { } |
|
343
|
8 |
2 |
if (@other > 0) |
|
344
|
0 |
8 |
if ($other[0] eq $next) { } |
|
357
|
0 |
2 |
unless ($next) |
|
385
|
0 |
19 |
unless @$river > 2 |
|
390
|
9 |
64 |
if ($seen{$hex}) |
|
391
|
9 |
0 |
if (@$canyon == 0) { } |
|
|
0 |
0 |
elsif ($seen{$hex} == 1) { } |
|
|
0 |
0 |
elsif ($seen{$hex} > 1) { } |
|
409
|
0 |
64 |
if ($self->legal($hex) and $self->altitude->{$self->world->{$hex}} > $current_altitude) { } |
|
|
0 |
64 |
elsif (@$canyon > 0) { } |
|
|
54 |
10 |
elsif ($self->legal($hex)) { } |
|
410
|
0 |
0 |
if (@$canyon > 0) { } |
|
442
|
0 |
1 |
rand() < 0.5 ? : |
|
443
|
1 |
0 |
$dir == 1 ? : |
|
444
|
1 |
0 |
$dir == 1 ? : |
|
447
|
110 |
0 |
$dir == 1 ? : |
|
449
|
7 |
93 |
if (not $dry and $self->world->{$hex} eq 'mountain') { } |
|
|
29 |
64 |
elsif ($dry) { } |
|
450
|
7 |
0 |
$dir == 1 ? : |
|
459
|
8 |
8 |
$dry % 2 ? : |
|
|
16 |
13 |
if abs($x - $dry) % 2 |
|
461
|
35 |
10 |
if $self->wet->{$hex2} |
|
480
|
100 |
0 |
if $self->world->{$_} ne "water" |
|
483
|
37 |
63 |
if ($self->wet->{$hex} and rand() < "0.5" or not $self->dry->{$hex} || &any(sub {
$self->dry->{$_};
}
, $self->all_neighbors($hex)) and rand() < "0.166666666666667") |
|
487
|
8 |
29 |
if ($self->world->{$hex} eq 'plain') { } |
|
|
17 |
12 |
elsif ($self->world->{$hex} eq 'hills') { } |
|
498
|
27 |
66 |
if (not $self->dry->{$hex} and &any(sub {
$forest_hexes{$_};
}
, $self->all_neighbors($hex)) and rand() < "0.333333333333333") |
|
501
|
4 |
23 |
if ($self->world->{$hex} eq 'plain') { } |
|
|
9 |
14 |
elsif ($self->world->{$hex} eq 'hills') { } |
|
518
|
17 |
83 |
if $self->world->{$_} eq "plain" |
|
519
|
0 |
2 |
if &any(sub {
$self->dry->{$_};
}
, $self->all_neighbors($hex)) |
|
520
|
0 |
2 |
if (rand() < "0.166666666666667") |
|
534
|
100 |
0 |
unless $self->world->{$_} eq "water" |
|
535
|
0 |
0 |
if (rand() < "0.166666666666667") |