Condition Coverage

blib/lib/Games/Literati.pm
Criterion Covered Total %
condition 43 76 56.5


and 3 conditions

line !l l&&!r l&&r condition
81 0 0 19 $BoardRows == $BoardCols and $BoardRows % 2 == 1
145 0 0 0 $check_letters =~ s/\?// and $hint .= "($l)"
174 601 0 1500 $check_letters =~ s/$l// and push @v, $values{$l}
601 0 0 $check_letters =~ s/\?// and push @v, 0
241 1 1 15 defined $onboard[$r][$c] and $onboard[$r][$c] ne '.'
318 2043 74432 1325 $column > 0 and $onboard[$row][$column - 1] ne '.'
1388 71895 3192 $column < &_max_col() and $onboard[$row][$column + 1] ne '.'
5702 66488 1093 $row > 0 and $onboard[$row - 1][$column] ne '.'
4560 66428 1202 $row < &_max_row() and $onboard[$row + 1][$column] ne '.'
68248 2516 224 $row == &_center_row() and $column == &_center_col()

or 2 conditions

line l !l condition
123 0 0 $args->{'re'} || '//'
124 0 0 $args->{'internal'} || 0
130 0 0 $min_len ||= 2
131 0 0 $max_len ||= 7
192 10269 0 $onboard[$row][$col] ||= '.'
294 0 24 $_[1] || 1
295 0 24 $_[2] || scalar @letters
539 295 43 shift() || 0
540 295 43 shift() || 0
541 338 0 shift() || ''
931 306 810 $bonus[$row][$col] || '__'

or 3 conditions

line l !l&&r !l&&!r condition
138 0 0 0 $len > $max_len or $len < $min_len
145 0 0 0 $check_letters =~ s/$l// or $check_letters =~ s/\?// and $hint .= "($l)"
174 1500 0 601 $check_letters =~ s/$l// and push @v, $values{$l} or $check_letters =~ s/\?// and push @v, 0
318 0 0 77800 $onboard[$row][$col] ne '.' or $column > 0 and $onboard[$row][$column - 1] ne '.'
1325 0 76475 $onboard[$row][$col] ne '.' or $column > 0 and $onboard[$row][$column - 1] ne '.' or $column < &_max_col() and $onboard[$row][$column + 1] ne '.'
3192 0 73283 $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 '.'
1093 0 72190 $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 '.'
1202 0 70988 $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()