- $args{mapper} = sub { join '::', $_[0]->parent->name, $_[1] };
- }
-
- my $parent = delete $args{parent};
- unless (defined $parent and blessed $parent) {
- $parent = find_meta($parent);
- Carp::confess("No meta object for parent $parent");
- $parent = $parent->type_constraint;