Help for this page
#!/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';