| blib/lib/Karel/Grid.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 10 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 85 | 1 | 1442 | if &none(sub { $_ eq $what; } , ' ', ('0', '1', '2', '3', '4', '5', '6', '7', '8', '9'), 'w', 'W') |
| 111 | 1 | 1 | unless 'w' eq $self->at($x, $y) |
| 126 | 1 | 137 | if &none(sub { $_ eq $previous; } , ' ', 1..8) |
| 127 | 27 | 110 | if ' ' eq $previous |
| 141 | 1 | 29 | if &none(sub { $_ eq $previous; } , 1..9) |