Lines Matching refs:play
16 multi method play (Paper $x, Rock $y) { 1 }
17 multi method play (Scissors $x, Paper $y) { 1 }
18 multi method play (Rock $x, Scissors $y) { 1 }
19 multi method play (Any $x, Any $y) { 0 }
26 multi method play (Paper $x, Spock $y) { 1 }
27 multi method play (Scissors $x, Lizard $y) { 1 }
28 multi method play (Rock $x, Lizard $y) { 1 }
29 multi method play (Lizard $x, Paper $y) { 1 }
30 multi method play (Lizard $x, Spock $y) { 1 }
31 multi method play (Spock $x, Rock $y) { 1 }
32 multi method play (Spock $x, Scissors $y) { 1 }
36 ok($game->play(Scissors->new, Paper->new), 'Scissors cuts Paper');
39 ok($egame->play(Scissors->new, Paper->new), 'Scissors cuts Paper');
41 ok($egame->play(Spock->new, Scissors->new), 'Spock smashes Scissors');
42 ok(!$egame->play(Lizard->new, Rock->new), 'Rock crushes Lizard');
43 ok(!$egame->play(Spock->new, Paper->new), 'Paper disproves Spock');