Select Code to Download

#!/usr/bin/perl

...
has scores => ( is => 'rw', isa => 'HashRef[colors]', default => sub{{
+}} ); # I want the allowed *keys* to be colors

1;

#!/usr/bin/perl

...
$hk->scores->{'black'} = 100;
$hk->scores->{1} = 'blue';
$hk->scores->{2} = 'dinosaur';