package Types; use Moose::Util::TypeConstraints; subtype 'AdmissibleAge' => as 'Num' => where {$_ >= 0 and $_ <= 99}; 1;