From 8d62b6e815e4442bed635d2b626ad9a6bce9abb3 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 28 May 2009 20:15:47 -0500
Subject: sigh, ->meta->meta->does_role, not ->meta->does_role

---
 lib/MooseX/ABC/Trait/Class.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/MooseX/ABC/Trait/Class.pm b/lib/MooseX/ABC/Trait/Class.pm
index bcefd9a..78b4db4 100644
--- a/lib/MooseX/ABC/Trait/Class.pm
+++ b/lib/MooseX/ABC/Trait/Class.pm
@@ -19,7 +19,8 @@ after _superclasses_updated => sub {
     shift @supers;
     for my $superclass (@supers) {
         my $super_meta = Class::MOP::class_of($superclass);
-        next unless $super_meta->does_role('MooseX::ABC::Trait::Class');
+        next unless $super_meta->meta->can('does_role')
+                 && $super_meta->meta->does_role('MooseX::ABC::Trait::Class');
         for my $method ($super_meta->required_methods) {
             if (!$self->find_method_by_name($method)) {
                 my $classname = $self->name;
-- 
cgit v1.2.3