From 78a23991ad2bf27b9bc38345c251f79ef954101b Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 23 Jun 2009 10:41:52 -0500
Subject: expand out metaroles

---
 lib/MooseX/Extension.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lib/MooseX/Extension.pm b/lib/MooseX/Extension.pm
index f69c181..8981746 100644
--- a/lib/MooseX/Extension.pm
+++ b/lib/MooseX/Extension.pm
@@ -31,6 +31,12 @@ sub init_meta {
     shift;
     my %options = @_;
     Moose->init_meta(%options);
+    my $base_class_roles = delete $args->{-base_class_roles};
+    my %metaclass_roles = map {
+        my $key = $_;
+        $key =~ s/^-//;
+        ($key, $args->{-$key});
+    } keys %$args;
     Moose::Util::MetaRole::apply_metaclass_roles(
         for_class => $options{for_class},
     );
-- 
cgit v1.2.3