Condition Coverage

blib/lib/Games/Literati.pm
Criterion Covered Total %
condition 68 85 80.0


and 3 conditions

line !l l&&!r l&&r condition
85 0 0 24 $BoardRows == $BoardCols and $BoardRows % 2 == 1
115 2 0 2 exists $valid{$w} and $valid{$w} == 1
149 9 0 4 $check_letters =~ s/\?// and $hint .= "($l)"
186 640 0 1647 $check_letters =~ s/$l// and push @v, $values{$l}
640 0 1647 $check_letters =~ s/$l// and push @v, $values{$l} and push @ltrs, $l
636 0 4 $check_letters =~ s/\?// and push @v, 0
636 0 4 $check_letters =~ s/\?// and push @v, 0 and push @ltrs, '?'
252 1 1 15 defined $onboard[$r][$c] and $onboard[$r][$c] ne '.'
329 2254 79244 1661 $column > 0 and $onboard[$row][$column - 1] ne '.'
1526 76373 3599 $column < &_max_col() and $onboard[$row][$column + 1] ne '.'
5939 70278 1682 $row > 0 and $onboard[$row - 1][$column] ne '.'
4881 69792 1544 $row < &_max_row() and $onboard[$row + 1][$column] ne '.'
71714 2735 224 $row == &_center_row() and $column == &_center_col()

or 2 conditions

line l !l condition
128 3 0 $args->{'re'} || '//'
129 1 2 $args->{'internal'} || 0
135 0 3 $min_len ||= 2
136 0 3 $max_len ||= 7
203 12969 0 $onboard[$row][$col] ||= '.'
305 0 32 $_[1] || 1
306 0 32 $_[2] || scalar @letters
573 367 55 shift() || 0
574 367 55 shift() || 0
575 422 0 shift() || ''
965 306 810 $bonus[$row][$col] || '__'

or 3 conditions

line l !l&&r !l&&!r condition
142 3 0 57 $len > $max_len or $len < $min_len
149 31 10 3 $check_letters =~ s/$l// or $check_letters =~ s/\?// and $hint .= "($l)"
186 1647 519 121 $check_letters =~ s/$l// and push @v, $values{$l} and push @ltrs, $l or $check_letters =~ s/\?// and push @v, 0 and push @ltrs, '?'
329 0 1661 81498 $onboard[$row][$col] ne '.' or $column > 0 and $onboard[$row][$column - 1] ne '.'
1661 3599 77899 $onboard[$row][$col] ne '.' or $column > 0 and $onboard[$row][$column - 1] ne '.' or $column < &_max_col() and $onboard[$row][$column + 1] ne '.'
3599 1682 76217 $onboard[$row][$col] ne '.' or $column > 0 and $onboard[$row][$column - 1] ne '.' or $column < &_max_col() and $onboard[$row][$column + 1] ne '.' or $row > 0 and $onboard[$row - 1][$column] ne '.'
1682 1544 74673 $onboard[$row][$col] ne '.' or $column > 0 and $onboard[$row][$column - 1] ne '.' or $column < &_max_col() and $onboard[$row][$column + 1] ne '.' or $row > 0 and $onboard[$row - 1][$column] ne '.' or $row < &_max_row() and $onboard[$row + 1][$column] ne '.'
1544 224 74449 $onboard[$row][$col] ne '.' or $column > 0 and $onboard[$row][$column - 1] ne '.' or $column < &_max_col() and $onboard[$row][$column + 1] ne '.' or $row > 0 and $onboard[$row - 1][$column] ne '.' or $row < &_max_row() and $onboard[$row + 1][$column] ne '.' or $row == &_center_row() and $column == &_center_col()