0.06

diff --git a/Build.PL b/Build.PL
index 286ec1f..c75e718 100644 (file)
--- a/Build.PL
+++ b/Build.PL
@@ -7,7 +7,7 @@ my $build = Module::Build->new(
     license => 'perl',
     requires => {
         'autobox'         => '1.03',
-        'Moose'           => '0.11',
+        'Moose'           => '0.35',
         'Perl6::Junction' => '1.10',
     },
     optional => {

diff --git a/Changes b/Changes
index 11727ef..c8f1db6 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,11 @@
 Revision history for Perl extension Moose::Autobox
 
+0.06
+    * Moose::Autobox
+      - fixed role application code to follow the new
+        Moose::Util based API, upped the Moose version 
+        dependency.
+
 0.05 Sun. Aug. 5, 2007
     * Moose::Autobox
       - fixed loading approach so that Moose::Object doesn't end 

diff --git a/lib/Moose/Autobox.pm b/lib/Moose/Autobox.pm
index 5912464..db11ded 100644 (file)
--- a/lib/Moose/Autobox.pm
+++ b/lib/Moose/Autobox.pm
@@ -7,7 +7,7 @@ use warnings;
 use Carp        qw(confess);
 use Scalar::Util ();
 
-our $VERSION = '0.05';
+our $VERSION = '0.06';
 
 use base 'autobox';
 
@@ -24,7 +24,7 @@ sub mixin_additional_role {
     my ($class, $type, $role) = @_;
     ($type =~ /SCALAR|ARRAY|HASH|CODE/)
         || confess "Can only add additional roles to SCALAR, ARRAY, HASH or CODE";
-    ('Moose::Autobox::' . $type)->meta->_apply_all_roles($role);
+    Moose::Util::apply_all_roles(('Moose::Autobox::' . $type)->meta, ($role));
 }
 
 {
@@ -35,7 +35,7 @@ sub mixin_additional_role {
 
     use metaclass 'Moose::Meta::Class';
 
-    __PACKAGE__->meta->_apply_all_roles('Moose::Autobox::Scalar');
+    Moose::Util::apply_all_roles(__PACKAGE__->meta, ('Moose::Autobox::Scalar'));
 
     *does = \&Moose::Object::does;
 
@@ -45,7 +45,7 @@ sub mixin_additional_role {
 
     use metaclass 'Moose::Meta::Class';
 
-    __PACKAGE__->meta->_apply_all_roles('Moose::Autobox::Array');
+    Moose::Util::apply_all_roles(__PACKAGE__->meta, ('Moose::Autobox::Array'));
 
     *does = \&Moose::Object::does;
 
@@ -55,7 +55,7 @@ sub mixin_additional_role {
 
     use metaclass 'Moose::Meta::Class';
 
-    __PACKAGE__->meta->_apply_all_roles('Moose::Autobox::Hash');
+    Moose::Util::apply_all_roles(__PACKAGE__->meta, ('Moose::Autobox::Hash'));
 
     *does = \&Moose::Object::does;
 
@@ -65,7 +65,7 @@ sub mixin_additional_role {
 
     use metaclass 'Moose::Meta::Class';
 
-    __PACKAGE__->meta->_apply_all_roles('Moose::Autobox::Code');
+    Moose::Util::apply_all_roles(__PACKAGE__->meta, ('Moose::Autobox::Code'));
 
     *does = \&Moose::Object::does;