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/31-moose-exporter.t   | 20 ++++++++++++--------
 t/32-moosex-insideout.t | 16 +++++++++-------
 t/33-moosex-globref.t   | 16 +++++++++-------
 3 files changed, 30 insertions(+), 22 deletions(-)

(limited to 't')

diff --git a/t/31-moose-exporter.t b/t/31-moose-exporter.t
index fabcef2..13b556d 100644
--- a/t/31-moose-exporter.t
+++ b/t/31-moose-exporter.t
@@ -14,9 +14,11 @@ 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'],
+        Moose::Util::MetaRole::apply_metaroles(
+            for             => $options{for_class},
+            class_metaroles => {
+                class => ['MooseX::NonMoose::Meta::Role::Class'],
+            },
         );
         return Class::MOP::class_of($options{for_class});
     }
@@ -29,11 +31,13 @@ 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'],
+        Moose::Util::MetaRole::apply_metaroles(
+            for             => $options{for_class},
+            class_metaroles => {
+                class => ['MooseX::NonMoose::Meta::Role::Class'],
+                constructor =>
+                    ['MooseX::NonMoose::Meta::Role::Constructor'],
+            },
         );
         return Class::MOP::class_of($options{for_class});
     }
diff --git a/t/32-moosex-insideout.t b/t/32-moosex-insideout.t
index 88283b0..fcd3fd1 100644
--- a/t/32-moosex-insideout.t
+++ b/t/32-moosex-insideout.t
@@ -19,13 +19,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::InsideOut::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::InsideOut::Role::Meta::Instance'],
+            },
         );
         return Class::MOP::class_of($options{for_class});
     }
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