Remove useless check code
gfx [Sat, 24 Oct 2009 09:14:45 +0000 (18:14 +0900)]
lib/Mouse/Meta/TypeConstraint.pm

index d783a73..9b1acc7 100644 (file)
@@ -31,11 +31,6 @@ sub new {
 
     $check = $args{constraint};
 
-    if(blessed($check)){
-        Carp::cluck("Constraint for $args{name} must be a CODE reference");
-        $check = $check->{compiled_type_constraint};
-    }
-
     if(defined($check) && ref($check) ne 'CODE'){
         confess("Constraint for $args{name} is not a CODE reference");
     }