From: gfx <gfuji@cpan.org>
Date: Mon, 16 Nov 2009 09:02:52 +0000 (+0900)
Subject: Mouse:::Meta::Method::Constructor is used only in pure perl mode
X-Git-Tag: 0.40_06~6
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bf1c5d5c92ddde0cfaef2f9489d7a743216e5933;p=gitmo%2FMouse.git

Mouse:::Meta::Method::Constructor is used only in pure perl mode
---

diff --git a/lib/Mouse/Meta/Class.pm b/lib/Mouse/Meta/Class.pm
index 8183a96..24559c4 100644
--- a/lib/Mouse/Meta/Class.pm
+++ b/lib/Mouse/Meta/Class.pm
@@ -3,7 +3,6 @@ use Mouse::Util qw/:meta get_linear_isa not_supported/; # enables strict and war
 
 use Scalar::Util qw/blessed weaken/;
 
-use Mouse::Meta::Method::Constructor;
 use Mouse::Meta::Method::Destructor;
 use Mouse::Meta::Module;
 our @ISA = qw(Mouse::Meta::Module);
diff --git a/lib/Mouse/PurePerl.pm b/lib/Mouse/PurePerl.pm
index 8ff18ee..d2f04f3 100644
--- a/lib/Mouse/PurePerl.pm
+++ b/lib/Mouse/PurePerl.pm
@@ -203,6 +203,8 @@ sub add_method {
 package
     Mouse::Meta::Class;
 
+use Mouse::Meta::Method::Constructor;
+
 sub constructor_class()   { 'Mouse::Meta::Method::Constructor' }
 
 sub is_anon_class{