X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fmetaclass.pm;h=a41c2fee36ca070694bb3c710e629b0eb3e1d866;hb=1abd7f66ba40d740183fb4c74aaad79f43f667f3;hp=17e0e97fb6ba5ebf993f6ab2b9dbd518e57162eb;hpb=b5d324aabbddc9f63b15ba380d0f675f2567c235;p=gitmo%2FMoose.git diff --git a/lib/metaclass.pm b/lib/metaclass.pm index 17e0e97..a41c2fe 100644 --- a/lib/metaclass.pm +++ b/lib/metaclass.pm @@ -5,6 +5,7 @@ use strict; use warnings; use Carp 'confess'; +use Class::Load 'load_class'; use Scalar::Util 'blessed'; use Try::Tiny; @@ -22,7 +23,7 @@ sub import { unless ( defined $metaclass ) { $metaclass = "Class::MOP::Class"; } else { - Class::MOP::load_class($metaclass); + load_class($metaclass); } ($metaclass->isa('Class::MOP::Class')) @@ -31,7 +32,7 @@ sub import { # make sure the custom metaclasses get loaded foreach my $key (grep { /_(?:meta)?class$/ } keys %options) { unless ( ref( my $class = $options{$key} ) ) { - Class::MOP::load_class($class) + load_class($class) } }