gistfile1.txt

my \Rolex = $;
Rolex = role :: { 
  has %!player-points;
  method !zero-scores(@players) { 
    for @players -> $player { 
      %!player-points{$player} = 0
    }
  }
  method score($player, $points) { ... }
  method ranking() { ... }
}
my \Classx = $;
Classx = class :: does Rolex { 
  submethod BUILD(:@players) { 
    self!zero-scores(@players);
  }
}