my $colour_hash = Locked[
   Dict[
      red   => Optional[Int],
      blue  => Optional[Int],
      green => Optional[Int],
   ],
];

has scores => (
   is       => 'rw',
   isa      => $colour_hash,
   default  => sub{ {} },
   coerce   => 1,
);