120.pl

package Paper;    use Moose;
package Scissors; use Moose;
package Rock;     use Moose;

package Game;
use Moose;
use MooseX::MultiMethods;

multi method play (Paper    $x, Rock     $y) { 1 }
multi method play (Scissors $x, Paper    $y) { 1 }
multi method play (Rock     $x, Scissors $y) { 1 }
multi method play (Any      $x, Any      $y) { 0 }

my $game = Game->new;

print $game->play(Paper->new, Rock->new);     # 1, Paper covers Rock