# and 'hand_optimized_type_constraint' from the parent
delete $args{compiled_type_constraint};
delete $args{hand_optimized_type_constraint};
+ if(defined(my $parent_tp = $args{parent}{type_parameter})) {
+ delete $args{type_parameter} if $parent_tp == $args{type_parameter};
+ }
}
my $check;
}
# See also Moose::Meta::TypeConstraint::Parameterizable
-sub parameterize{
+sub parameterize {
my($self, $param, $name) = @_;
if(!ref $param){
=head1 VERSION
-This document describes Mouse version 0.74
+This document describes Mouse version 0.81
=head1 DESCRIPTION