##
print $type_constraint->parent->name; # prints Object
print $type_constraint->parent->parent->name; # prints Ref
print $type_constraint->parent->parent->parent->name; # prints Any
####
subtype Protocol
=> as Str
=> where { /^HTTP\/[0-9]\.[0-9]$/ };
####
has 'protocol' => (isa => 'Protocol');