From: Dave Rolsky <autarch@urth.org>
Date: Fri, 10 Sep 2010 01:54:38 +0000 (-0500)
Subject: Include inherited roles in inlined does
X-Git-Tag: 1.13~14
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f882451368895183f3834610c4d94f6ca9f40fdd;p=gitmo%2FMoose.git

Include inherited roles in inlined does
---

diff --git a/lib/Moose/Meta/Method/Does.pm b/lib/Moose/Meta/Method/Does.pm
index 25c5b25..642b5aa 100644
--- a/lib/Moose/Meta/Method/Does.pm
+++ b/lib/Moose/Meta/Method/Does.pm
@@ -55,8 +55,8 @@ sub _initialize_body {
     $source .= ";\n" . 'return $does{$name} || 0';
     $source .= ";\n" . '}';
 
-    my %does
-        = map { $_->name => 1 } $self->associated_metaclass->calculate_all_roles;
+    my %does = map { $_->name => 1 }
+        $self->associated_metaclass->calculate_all_roles_with_inheritance;
 
     my ( $code, $e ) = $self->_compile_code(
         code        => $source,