Condition Coverage

blib/lib/Game/TextMapper/Gridmapper.pm
Criterion Covered Total %
condition 42 177 23.7


and 3 conditions

line !l l&&!r l&&r condition
126 0 0 0 $r < "0.95" and $pillars
188 0 0 0 $type eq "|" and $x == $start[0] || $x == $start[0] + $dimensions[0] - 1
0 0 0 $type eq "-" and $y == $start[1] || $y == $start[1] + $dimensions[1] - 1
594 0 0 0 $min_up and $d > $min_up
610 0 0 0 $min_left and $d > $min_left
625 0 0 0 @{$result->[$start];} == 3 and $result->[$start][2] == $start
662 1 0 0 $sevens > 0 and $rest % 5
738 3 0 1 @$to == 3 and $to->[0] == $$shapes[$to->[2]][0]
3 1 0 @$to == 3 and $to->[0] == $$shapes[$to->[2]][0] and $to->[1] == $$shapes[$to->[2]][1]
837 1 22 9 $started and not $tiles->[$from]
864 704 162 74 $tiles->[$here] and not $self->something($tiles, $here, $test{$dir}[0])
866 56 18 $tiles->[$here] and not $self->something($tiles, $here, $test{$dir}[0]) and not $self->something($tiles, $here, $test{$dir}[1])
218 0 18 $tiles->[$here] and not $self->something($tiles, $here, $test{$dir}[0]) and not $self->something($tiles, $here, $test{$dir}[1]) and $self->something($tiles, $here, $test{$dir}[2])
56 0 18 $tiles->[$here] and not $self->something($tiles, $here, $test{$dir}[0]) and not $self->something($tiles, $here, $test{$dir}[1]) and $self->something($tiles, $here, $test{$dir}[2]) and $self->something($tiles, $here, $test{$dir}[3])
0 10 8 $tiles->[$here] and not $self->something($tiles, $here, $test{$dir}[0]) and not $self->something($tiles, $here, $test{$dir}[1]) and $self->something($tiles, $here, $test{$dir}[2]) and $self->something($tiles, $here, $test{$dir}[3]) and $self->something($tiles, $here, $test{$dir}[4]) || $self->something($tiles, $here, $test{$dir}[5])
10 3 5 $tiles->[$here] and not $self->something($tiles, $here, $test{$dir}[0]) and not $self->something($tiles, $here, $test{$dir}[1]) and $self->something($tiles, $here, $test{$dir}[2]) and $self->something($tiles, $here, $test{$dir}[3]) and $self->something($tiles, $here, $test{$dir}[4]) || $self->something($tiles, $here, $test{$dir}[5]) and not $self->doors_nearby($here, \@doors)
958 88 39 5 $self->empty($tiles, $here, $first) and &none(sub { $self->something($tiles, $here, $_); } , @test)
979 0 0 0 $self->distance($here, $start) < 3 and @{$tiles->[$here];} == 1
0 0 0 $self->distance($here, $start) < 3 and @{$tiles->[$here];} == 1 and $tiles->[$here][0] eq "empty"
0 0 0 $self->distance($here, $start) < 3 and @{$tiles->[$here];} == 1 and $tiles->[$here][0] eq "empty" and not grep({/-n$/u;} @{$$tiles[$here + $self->row];})
0 0 0 $self->distance($here, $start) < 3 and @{$tiles->[$here];} == 1 and $tiles->[$here][0] eq "empty" and not grep({/-n$/u;} @{$$tiles[$here + $self->row];}) and not grep({/-w$/u;} @{$$tiles[$here + 1];})
1032 0 0 0 substr($dir, 0, 1) eq "n" and $here + $self->row < $self->max_tiles
0 0 0 substr($dir, 0, 1) eq "n" and $here + $self->row < $self->max_tiles and $$tiles[$here + $self->row]
0 0 0 substr($dir, 0, 1) eq "n" and $here + $self->row < $self->max_tiles and $$tiles[$here + $self->row] and @{$$tiles[$here + $self->row];}
0 0 0 substr($dir, 0, 1) eq "s" and $here > $self->row
0 0 0 substr($dir, 0, 1) eq "s" and $here > $self->row and $$tiles[$here - $self->row]
0 0 0 substr($dir, 0, 1) eq "s" and $here > $self->row and $$tiles[$here - $self->row] and @{$$tiles[$here - $self->row];}
0 0 0 substr($dir, 1) eq "e" and $here > 0
0 0 0 substr($dir, 1) eq "e" and $here > 0 and $$tiles[$here - 1]
0 0 0 substr($dir, 1) eq "e" and $here > 0 and $$tiles[$here - 1] and @{$$tiles[$here - 1];}
0 0 0 substr($dir, 1) eq "w" and $here < $self->max_tiles
0 0 0 substr($dir, 1) eq "w" and $here < $self->max_tiles and $$tiles[$here + 1]
0 0 0 substr($dir, 1) eq "w" and $here < $self->max_tiles and $$tiles[$here + 1] and @{$$tiles[$here + 1];}
1061 0 0 0 $self->something($tiles, $here, $test{$dir}[0]) and not $self->something($tiles, $here, $test{$dir}[1])
0 0 0 $self->something($tiles, $here, $test{$dir}[0]) and not $self->something($tiles, $here, $test{$dir}[1]) and not $self->something($tiles, $here, $test{$dir}[2])
1153 685 11 1 $here % $self->row == 0 and $delta == -1
1154 696 0 0 $here % $self->row == $self->row and $delta == 1
1184 0 0 0 $here > $self->row and $$tiles[$here - $self->row]
0 0 0 $here > $self->row and $$tiles[$here - $self->row] and @{$$tiles[$here - $self->row];}
1187 0 0 0 $here + $self->row <= $self->max_tiles and $$tiles[$here + $self->row]
0 0 0 $here + $self->row <= $self->max_tiles and $$tiles[$here + $self->row] and @{$$tiles[$here + $self->row];}
1190 0 0 0 $here > 0 and $$tiles[$here - 1]
0 0 0 $here > 0 and $$tiles[$here - 1] and @{$$tiles[$here - 1];}
1193 0 0 0 $here < $self->max_tiles and $$tiles[$here + 1]
0 0 0 $here < $self->max_tiles and $$tiles[$here + 1] and @{$$tiles[$here + 1];}
1233 187 0 19 $pen eq "down" and $next
187 19 0 $pen eq "down" and $next and @$next

or 3 conditions

line l !l&&r !l&&!r condition
126 0 0 0 $r < "0.95" and $pillars or $caves
188 0 0 0 $x == $start[0] || $x == $start[0] + $dimensions[0] - 1
0 0 0 $y == $start[1] || $y == $start[1] + $dimensions[1] - 1
0 0 0 $type eq "|" and $x == $start[0] || $x == $start[0] + $dimensions[0] - 1 or $type eq "-" and $y == $start[1] || $y == $start[1] + $dimensions[1] - 1
595 0 0 0 not $min_up or $d < $min_up
611 0 0 0 not $min_left or $d < $min_left
864 6 2 10 $self->something($tiles, $here, $test{$dir}[4]) || $self->something($tiles, $here, $test{$dir}[5])
1032 0 0 0 substr($dir, 0, 1) eq "n" and $here + $self->row < $self->max_tiles and $$tiles[$here + $self->row] and @{$$tiles[$here + $self->row];} or substr($dir, 0, 1) eq "s" and $here > $self->row and $$tiles[$here - $self->row] and @{$$tiles[$here - $self->row];}
0 0 0 substr($dir, 0, 1) eq "n" and $here + $self->row < $self->max_tiles and $$tiles[$here + $self->row] and @{$$tiles[$here + $self->row];} or substr($dir, 0, 1) eq "s" and $here > $self->row and $$tiles[$here - $self->row] and @{$$tiles[$here - $self->row];} or substr($dir, 1) eq "e" and $here > 0 and $$tiles[$here - 1] and @{$$tiles[$here - 1];}
0 0 0 substr($dir, 0, 1) eq "n" and $here + $self->row < $self->max_tiles and $$tiles[$here + $self->row] and @{$$tiles[$here + $self->row];} or substr($dir, 0, 1) eq "s" and $here > $self->row and $$tiles[$here - $self->row] and @{$$tiles[$here - $self->row];} or substr($dir, 1) eq "e" and $here > 0 and $$tiles[$here - 1] and @{$$tiles[$here - 1];} or substr($dir, 1) eq "w" and $here < $self->max_tiles and $$tiles[$here + 1] and @{$$tiles[$here + 1];}
1152 6 0 697 $here + $delta < 0 or $here + $delta > $self->max_tiles
1231 30 176 60 not $tile or @$tile == 0