class_of in Moose::Exporter
Shawn M Moore [Sat, 28 Mar 2009 20:14:01 +0000 (16:14 -0400)]
lib/Moose/Exporter.pm

index 3ca96b8..b998614 100644 (file)
@@ -298,7 +298,7 @@ sub _apply_meta_traits {
 
     return unless @{$traits};
 
-    my $meta = $class->meta();
+    my $meta = Class::MOP::class_of($class);
 
     my $type = ( split /::/, ref $meta )[-1]
         or Moose->throw_error(