Lazy load Moose::Error::Default
gfx [Sun, 19 Jul 2009 09:52:52 +0000 (18:52 +0900)]
lib/Moose/Meta/Class.pm

index 06e2d23..41e0e9f 100644 (file)
@@ -17,7 +17,6 @@ our $AUTHORITY = 'cpan:STEVAN';
 
 use Moose::Meta::Method::Overridden;
 use Moose::Meta::Method::Augmented;
-use Moose::Error::Default;
 use Moose::Meta::Class::Immutable::Trait;
 use Moose::Meta::Method::Constructor;
 use Moose::Meta::Method::Destructor;
@@ -611,6 +610,7 @@ sub raise_error {
 sub create_error {
     my ( $self, @args ) = @_;
 
+    require Moose::Error::Default;
     require Carp::Heavy;
 
     local $error_level = ($error_level || 0 ) + 1;