From: Shawn M Moore <sartak@gmail.com>
Date: Sat, 30 May 2009 22:00:34 +0000 (-0400)
Subject: Fix role delegation
X-Git-Tag: 0.80~40
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b07a4e6d92885f60150e8f0998becaa961a3abc1;p=gitmo%2FMoose.git

Fix role delegation
---

diff --git a/lib/Moose/Meta/Attribute.pm b/lib/Moose/Meta/Attribute.pm
index 54ba639..807d696 100644
--- a/lib/Moose/Meta/Attribute.pm
+++ b/lib/Moose/Meta/Attribute.pm
@@ -627,7 +627,7 @@ sub _canonicalize_handles {
 
         return map { $_ => $_ } (
             $role_meta->get_method_list,
-            $role_meta->get_required_method_list
+            map { $_->name } $role_meta->get_required_method_list,
         );
     }
 }