| blib/lib/Games/Literati.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 68 | 85 | 80.0 |
| 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() |
| 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] || '__' |
| 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() |