From: John Napiorkowski <jjnapiork@cpan.org>
Date: Thu, 23 Oct 2008 16:58:57 +0000 (+0000)
Subject: gave Moose::Meta::TypeConstraint::Class a custom create_childtype
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c2b996ec52fea70a088c8fe1233a6bcc9ca2f83e;p=gitmo%2FMoose.git

gave Moose::Meta::TypeConstraint::Class a custom create_childtype
---

diff --git a/lib/Moose/Meta/TypeConstraint/Class.pm b/lib/Moose/Meta/TypeConstraint/Class.pm
index 39b45e0..604d0e2 100644
--- a/lib/Moose/Meta/TypeConstraint/Class.pm
+++ b/lib/Moose/Meta/TypeConstraint/Class.pm
@@ -33,8 +33,8 @@ sub _create_hand_optimized_type_constraint {
     my $self = shift;
     my $class = $self->class;
     $self->hand_optimized_type_constraint(
-        sub { 
-            blessed( $_[0] ) && $_[0]->isa($class) 
+        sub {
+            blessed( $_[0] ) && $_[0]->isa($class);
         }
     );
 }
@@ -97,6 +97,11 @@ sub is_subtype_of {
     }
 }
 
+sub create_childtype {
+    my ($self, %opts) = @_;
+    return Moose::Meta::TypeConstraint->new(%opts, parent => $self);
+}
+
 1;
 
 __END__