From 8a8473212d379a2ffff0944ca04bdf4aee96d098 Mon Sep 17 00:00:00 2001
From: Dave Rolsky <autarch@urth.org>
Date: Mon, 19 Jul 2010 09:20:30 -0500
Subject: Fix more old MetaRole API usage

---
 t/33-moosex-globref.t | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

(limited to 't/33-moosex-globref.t')

diff --git a/t/33-moosex-globref.t b/t/33-moosex-globref.t
index 01f94bf..60bfa9c 100644
--- a/t/33-moosex-globref.t
+++ b/t/33-moosex-globref.t
@@ -23,13 +23,15 @@ BEGIN {
         shift;
         my %options = @_;
         Moose->init_meta(%options);
-        Moose::Util::MetaRole::apply_metaclass_roles(
-            for_class               => $options{for_class},
-            metaclass_roles         => ['MooseX::NonMoose::Meta::Role::Class'],
-            constructor_class_roles =>
-                ['MooseX::NonMoose::Meta::Role::Constructor'],
-            instance_metaclass_roles =>
-                ['MooseX::GlobRef::Role::Meta::Instance'],
+        Moose::Util::MetaRole::apply_metaroles(
+            for             => $options{for_class},
+            class_metaroles => {
+                class => ['MooseX::NonMoose::Meta::Role::Class'],
+                constructor =>
+                    ['MooseX::NonMoose::Meta::Role::Constructor'],
+                instance =>
+                    ['MooseX::GlobRef::Role::Meta::Instance'],
+            },
         );
         return Class::MOP::class_of($options{for_class});
     }
-- 
cgit v1.2.3-54-g00ecf