print $type_constraint->parent->name; # prints Object
print $type_constraint->parent->parent->name; # prints Ref
print $type_constraint->parent->parent->parent->name; # prints Any