From: Dave Rolsky <autarch@urth.org>
Date: Wed, 14 Jul 2010 18:48:22 +0000 (-0500)
Subject: use newer MetaRole API and require Moose 0.94
X-Git-Tag: v0.09~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2c33a8492bbf3e4dd2b3384351eac52aeacc2b4d;p=gitmo%2FMooseX-StrictConstructor.git

use newer MetaRole API and require Moose 0.94
---

diff --git a/lib/MooseX/StrictConstructor.pm b/lib/MooseX/StrictConstructor.pm
index ce01b34..5fb6d8c 100644
--- a/lib/MooseX/StrictConstructor.pm
+++ b/lib/MooseX/StrictConstructor.pm
@@ -6,7 +6,7 @@ use warnings;
 our $VERSION = '0.08';
 $VERSION = eval $VERSION;
 
-use Moose 0.74 ();
+use Moose 0.94 ();
 use Moose::Exporter;
 use Moose::Util::MetaRole;
 use MooseX::StrictConstructor::Role::Object;
@@ -22,14 +22,16 @@ sub init_meta {
 
     my $caller = $p{for_class};
 
-    Moose::Util::MetaRole::apply_metaclass_roles(
-        for_class => $caller,
-        constructor_class_roles =>
-            ['MooseX::StrictConstructor::Role::Meta::Method::Constructor'],
+    Moose::Util::MetaRole::apply_metaroles(
+        for             => $caller,
+        class_metaroles => {
+            constructor => [
+                'MooseX::StrictConstructor::Role::Meta::Method::Constructor']
+        },
     );
 
     Moose::Util::MetaRole::apply_base_class_roles(
-        for_class => $caller,
+        for => $caller,
         roles =>
             ['MooseX::StrictConstructor::Role::Object'],
     );