From: Yuval Kogman <nothingmuch@woobling.org>
Date: Fri, 31 Oct 2008 06:05:14 +0000 (+0000)
Subject: more create_child_type fixes (Role, Enum)
X-Git-Tag: 0.61~10
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=39170e48d9ef3b559e43893f8d1d625708e85807;p=gitmo%2FMoose.git

more create_child_type fixes (Role, Enum)
---

diff --git a/lib/Moose/Meta/TypeConstraint/Enum.pm b/lib/Moose/Meta/TypeConstraint/Enum.pm
index d16597a..fe38278 100644
--- a/lib/Moose/Meta/TypeConstraint/Enum.pm
+++ b/lib/Moose/Meta/TypeConstraint/Enum.pm
@@ -69,7 +69,7 @@ sub _compile_hand_optimized_type_constraint {
 
 sub create_child_type {
     my ($self, @args) = @_;
-    return Moose::meta::TypeConstraint->new(@args, parent => $self);
+    return Moose::Meta::TypeConstraint->new(@args, parent => $self);
 }
 
 1;
diff --git a/lib/Moose/Meta/TypeConstraint/Role.pm b/lib/Moose/Meta/TypeConstraint/Role.pm
index 09cd625..0a73b9f 100644
--- a/lib/Moose/Meta/TypeConstraint/Role.pm
+++ b/lib/Moose/Meta/TypeConstraint/Role.pm
@@ -97,7 +97,7 @@ sub is_subtype_of {
 
 sub create_child_type {
     my ($self, @args) = @_;
-    return Moose::meta::TypeConstraint->new(@args, parent => $self);
+    return Moose::Meta::TypeConstraint->new(@args, parent => $self);
 }
 
 1;