more create_child_type fixes (Role, Enum)

[gitmo/Moose.git] / lib / Moose / Meta / TypeConstraint / Enum.pm

diff --git a/lib/Moose/Meta/TypeConstraint/Enum.pm b/lib/Moose/Meta/TypeConstraint/Enum.pm
index 4191c54..d16597a 100644 (file)
--- a/lib/Moose/Meta/TypeConstraint/Enum.pm
+++ b/lib/Moose/Meta/TypeConstraint/Enum.pm
@@ -67,6 +67,11 @@ sub _compile_hand_optimized_type_constraint {
     sub { defined($_[0]) && !ref($_[0]) && exists $values{$_[0]} };
 }
 
+sub create_child_type {
+    my ($self, @args) = @_;
+    return Moose::meta::TypeConstraint->new(@args, parent => $self);
+}
+
 1;
 
 __END__
@@ -91,6 +96,8 @@ Moose::Meta::TypeConstraint::Enum - Type constraint for enumerated values.
 
 =item B<meta>
 
+=item B<create_child_type>
+
 =back
 
 =head1 BUGS