now uses *_package_symbol HASH ref versions

diff --git a/Changes b/Changes
index 2b74acf..42243e9 100644 (file)
--- a/Changes
+++ b/Changes
@@ -19,6 +19,10 @@ Revision history for Perl extension Moose
       - switched usage of reftype to ref because 
         it is much faster
         
+    * Moose::Meta::Role
+      - changing add_package_symbol to use the new
+        HASH ref form
+    
     * Moose::Object
       - fixed how DEMOLISHALL is called so that it 
         can be overrided in subclasses (thanks to Sartak)

diff --git a/lib/Moose/Meta/Role.pm b/lib/Moose/Meta/Role.pm
index 5774648..95094eb 100644 (file)
--- a/lib/Moose/Meta/Role.pm
+++ b/lib/Moose/Meta/Role.pm
@@ -8,7 +8,7 @@ use metaclass;
 use Carp         'confess';
 use Scalar::Util 'blessed';
 
-our $VERSION   = '0.15';
+our $VERSION   = '0.16';
 our $AUTHORITY = 'cpan:STEVAN';
 
 use Moose::Meta::Class;
@@ -360,7 +360,10 @@ sub alias_method {
     ('CODE' eq ref($body))
         || confess "Your code block must be a CODE reference";
 
-    $self->add_package_symbol("&${method_name}" => $body);
+    $self->add_package_symbol(
+        { sigil => '&', type => 'CODE', name => $method_name },
+        $body
+    );
 }
 
 ## ------------------------------------------------------------------