package Human::Gene::gey;

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

type 'geyColor' => where { $_ =~ m{^(?:green|blue)$}s };

has 'color' => ( is=>'ro', isa=>'geyColor' );

1;