package Human::Gene::bey2;

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

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

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

1;