From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 27 Sep 2010 02:29:47 +0000 (-0500)
Subject: fall back to calculate_all_roles here so role metas can use it
X-Git-Tag: 1.15~46
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cfa4312178a8547a29b7071457579f7cd5c35c5d;p=gitmo%2FMoose.git

fall back to calculate_all_roles here so role metas can use it
---

diff --git a/lib/Moose/Util.pm b/lib/Moose/Util.pm
index bbdc931..de6a954 100644
--- a/lib/Moose/Util.pm
+++ b/lib/Moose/Util.pm
@@ -320,9 +320,13 @@ sub _role_differences {
     my ($class_meta_name, $super_meta_name) = @_;
     my @super_role_metas = $super_meta_name->meta->can('calculate_all_roles_with_inheritance')
                          ? $super_meta_name->meta->calculate_all_roles_with_inheritance
+                         : $super_meta_name->meta->can('calculate_all_roles')
+                         ? $super_meta_name->meta->calculate_all_roles
                          : ();
     my @role_metas       = $class_meta_name->meta->can('calculate_all_roles_with_inheritance')
                          ? $class_meta_name->meta->calculate_all_roles_with_inheritance
+                         : $class_meta_name->meta->can('calculate_all_roles')
+                         ? $class_meta_name->meta->calculate_all_roles
                          : ();
     my @differences;
     for my $role_meta (@role_metas) {