| line |
true |
false |
branch |
|
36
|
0 |
4 |
unless exists $args->{'type'} |
|
39
|
1 |
3 |
if ($args->{'type'} eq 'starter') { } |
|
|
0 |
3 |
elsif ($args->{'type'} eq 'random') { } |
|
|
3 |
0 |
elsif ($args->{'type'} eq 'custom') { } |
|
50
|
0 |
3 |
unless exists $args->{'map'} |
|
72
|
0 |
0 |
unless $coordinates and ref $coordinates eq 'ARRAY' and @$coordinates == 2 |
|
83
|
0 |
0 |
unless $type_code and $type_code =~ qr/^[A-Z]$/ |
|
89
|
0 |
0 |
if $tile->code eq $type_code |
|
98
|
0 |
0 |
unless defined $number and $number =~ qr/^[0-9]+$/ |
|
104
|
0 |
0 |
if $tile->number == $number |
|
113
|
0 |
0 |
unless $intersection and ref $intersection eq 'Catan::Map::Intersection' |
|
119
|
0 |
0 |
if $intersection->is_adjacent($tile) |
|
127
|
0 |
0 |
unless $coordinates and ref $coordinates eq 'ARRAY' and @$coordinates == 3 |
|
142
|
0 |
0 |
unless $coordinates and ref $coordinates eq 'ARRAY' and @$coordinates == 2 |
|
160
|
0 |
4 |
unless $map_plan and ref $map_plan eq 'ARRAY' |
|
167
|
0 |
148 |
unless not defined $resource_number or grep(($resource_number == $_), @resource_numbers) |
|
173
|
148 |
0 |
exists $tile_types{$tile_code} ? : |
|
185
|
4 |
0 |
unless $map and ref $map eq 'HASH' and keys %$map == 37 |
|
191
|
0 |
0 |
unless $centre_tile |
|
204
|
0 |
0 |
unless $tile2 and $tile3 |
|
217
|
0 |
0 |
unless $intersections and ref $intersections eq 'HASH' and keys %$intersections == 54 |
|
231
|
0 |
0 |
if $i1 eq $i2 or not $i1->is_adjacent($i2) |
|
291
|
1 |
0 |
$type eq 'D' ? : |
|
307
|
30 |
18 |
if grep(($neighbor->{'q'} == $_->[0] && $neighbor->{'r'} == $_->[1]), @land_tiles, @new_tiles) |
|
312
|
0 |
18 |
$type eq 'D' ? : |