#!/usr/bin/perl

package Test::HashK;

use Moose;
use Moose::Util::TypeConstraints;

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

1;