Lines Matching refs:play
16 multi method play (Paper $x, Rock $y) { 1 }
17 multi method play (Paper $x, Spock $y) { 1 }
18 multi method play (Scissors $x, Paper $y) { 1 }
19 multi method play (Scissors $x, Lizard $y) { 1 }
20 multi method play (Rock $x, Scissors $y) { 1 }
21 multi method play (Rock $x, Lizard $y) { 1 }
22 multi method play (Lizard $x, Paper $y) { 1 }
23 multi method play (Lizard $x, Spock $y) { 1 }
24 multi method play (Spock $x, Rock $y) { 1 }
25 multi method play (Spock $x, Scissors $y) { 1 }
26 multi method play (Any $x, Any $y) { 0 }
30 ok($game->play(Spock->new, Scissors->new), 'Spock smashes Scissors');
31 ok(!$game->play(Lizard->new, Rock->new), 'Rock crushes Lizard');
32 ok(!$game->play(Spock->new, Paper->new), 'Paper disproves Spock');