Condition Coverage

blib/lib/Games/Maze.pm
Criterion Covered Total %
condition 61 104 58.6


or 2 conditions

line l !l condition
165 6 2 $$self{'dimensions'} ||= [3, 3, 1]
170 4 4 $$self{'form'} || 'Rectangle'
171 6 2 $$self{'cell'} || 'Quad'
294 6 2 $$self{'fn_choosedir'} || \&_random_dir

or 3 conditions

line l !l&&r !l&&!r condition
354 690 54 10 $c != $fin_c or $r != $fin_r
744 4 6 $c != $fin_c or $r != $fin_r or $l != $fin_l
713 0 0 2 $cols < 2 or $rows < 2
0 0 2 $cols < 2 or $rows < 2 or $lvls < 1
735 0 0 1 not defined $start[0] or $start[0] < 1
0 0 1 not defined $start[0] or $start[0] < 1 or $start[0] > $$self{'_cols'}
741 0 0 1 not defined $start[1] or $start[1] < 1
0 0 1 not defined $start[1] or $start[1] < 1 or $start[1] > $$self{'_rows'}
747 0 0 1 not defined $start[2] or $start[2] < 1
0 0 1 not defined $start[2] or $start[2] < 1 or $start[2] > $$self{'_rows'}
804 0 0 1 $entry[0] < 1 or $entry[0] > $$self{'_cols'}
824 0 0 1 $exit[0] < 1 or $exit[0] > $$self{'_cols'}
877 146 153 63 $dir == $Games::Maze::North or $dir == $Games::Maze::South
44 14 5 $dir == $Games::Maze::East or $dir == $Games::Maze::West
1097 0 0 2 $cols < 2 or $rows < 2
0 0 2 $cols < 2 or $rows < 2 or $lvls < 1
1110 0 0 4 $cols < 2 or $rows < 1
0 0 4 $cols < 2 or $rows < 1 or $lvls < 1
1134 0 0 5 not defined $start[0] or $start[0] < 1
0 0 5 not defined $start[0] or $start[0] < 1 or $start[0] > $$self{'_cols'}
1140 0 0 5 not defined $start[1] or $start[1] < 1
0 0 5 not defined $start[1] or $start[1] < 1 or $start[1] > $$self{'_rows'}
1148 1 0 4 not defined $start[2] or $start[2] < 1
1 0 4 not defined $start[2] or $start[2] < 1 or $start[2] > $$self{'_rows'}
1322 0 0 5 $entry[0] < 1 or $entry[0] > $$self{'_cols'}
1347 0 0 5 $exit[0] < 1 or $exit[0] > $$self{'_cols'}
1406 473 347 642 $dir == $Games::Maze::North or $dir == $Games::Maze::South
11 18 613 $dir == $Games::Maze::Ceiling or $dir == $Games::Maze::Floor
1418 20 11 274 $dir == $Games::Maze::NorthWest or $dir == $Games::Maze::NorthEast
1422 61 125 122 $dir == $Games::Maze::SouthWest or $dir == $Games::Maze::SouthEast
1425 93 163 357 $dir == $Games::Maze::NorthWest or $dir == $Games::Maze::SouthWest
60 297 0 $dir == $Games::Maze::NorthEast or $dir == $Games::Maze::SouthEast