A modern take on rock-paper-scissors

rock-paper-scissors.p6

enum Hand <Rock Paper Scissors>;

multi infix:<beats>(Paper, Rock) { True }
multi infix:<beats>(Rock, Scissors) { True }
multi infix:<beats>(Scissors, Paper) { True }
multi infix:<beats>($, $) { False }

my $p1 = Hand.roll;
say "Player 1 chooses {$p1}";

my $p2 = Hand.roll;
say "Player 2 chooses {$p2}";

say do {
    when $p1 beats $p2 { "Player 1 wins!" }
    when $p2 beats $p1 { "Player 2 wins!" }
    default { "It's a tie!" }
};