Checking in changes prior to tagging of version 0.78.

[gitmo/Mouse.git] / lib / Mouse / Meta / TypeConstraint.pm

diff --git a/lib/Mouse/Meta/TypeConstraint.pm b/lib/Mouse/Meta/TypeConstraint.pm
index fc64d28..4897169 100644 (file)
--- a/lib/Mouse/Meta/TypeConstraint.pm
+++ b/lib/Mouse/Meta/TypeConstraint.pm
@@ -13,6 +13,9 @@ sub new {
         # 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;
@@ -189,7 +192,7 @@ sub is_a_type_of {
 }
 
 # See also Moose::Meta::TypeConstraint::Parameterizable
-sub parameterize{
+sub parameterize {
     my($self, $param, $name) = @_;
 
     if(!ref $param){
@@ -234,7 +237,7 @@ Mouse::Meta::TypeConstraint - The Mouse Type Constraint metaclass
 
 =head1 VERSION
 
-This document describes Mouse version 0.75
+This document describes Mouse version 0.78
 
 =head1 DESCRIPTION