From: Shawn M Moore <sartak@gmail.com>
Date: Sat, 30 May 2009 22:04:17 +0000 (-0400)
Subject: Use objects, not names, in RoleSummation
X-Git-Tag: 0.80~39
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7e79d987b68fd31e41c5cafffa712710134b7f73;p=gitmo%2FMoose.git

Use objects, not names, in RoleSummation
---

diff --git a/lib/Moose/Meta/Role/Application/RoleSummation.pm b/lib/Moose/Meta/Role/Application/RoleSummation.pm
index e9e981f..e30bccb 100644
--- a/lib/Moose/Meta/Role/Application/RoleSummation.pm
+++ b/lib/Moose/Meta/Role/Application/RoleSummation.pm
@@ -89,7 +89,7 @@ sub check_required_methods {
     my ($self, $c) = @_;
 
     my %all_required_methods =
-        map { $_ => undef }
+        map { $_->name => $_ }
         map { $_->get_required_method_list }
         @{$c->get_roles};
 
@@ -102,7 +102,7 @@ sub check_required_methods {
         }
     }
 
-    $c->add_required_methods(keys %all_required_methods);
+    $c->add_required_methods(values %all_required_methods);
 }
 
 sub check_required_attributes {