| blib/lib/Games/Tetris.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 14 | 85.7 |
| line | true | false | branch |
|---|---|---|---|
| 51 | 0 | 2 | if ($$self{'_well'} = delete $args{'well'}) { } |
| 65 | 0 | 2 | if keys %args |
| 94 | 84 | 366 | $_ ? : |
| 112 | 10 | 186 | if $x < 0 or $y < 0 or $x >= $self->width or $y >= $self->depth or $self->well->[$y][$x] |
| 136 | 1 | 9 | unless $self->fits(@_) |
| 139 | 9 | 30 | unless $self->fits($shape, $at_x, $y) |
| 150 | 43 | 2 | if $inrow != $self->width |