From: Yuval Kogman <nothingmuch@woobling.org>
Date: Mon, 16 Jun 2008 22:16:26 +0000 (+0000)
Subject: fix the failing test, only call ->meta on a linearized isa member if ->can('meta')
X-Git-Tag: 0.04~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bb73340585512b0e09519eea54480ea3729ebf0b;p=gitmo%2FMouse.git

fix the failing test, only call ->meta on a linearized isa member if ->can('meta')
---

diff --git a/lib/Mouse/Meta/Attribute.pm b/lib/Mouse/Meta/Attribute.pm
index 733c129..9176bd0 100644
--- a/lib/Mouse/Meta/Attribute.pm
+++ b/lib/Mouse/Meta/Attribute.pm
@@ -289,7 +289,7 @@ sub get_parent_args {
     my $name  = shift;
 
     for my $super ($class->meta->linearized_isa) {
-        my $super_attr = $super->meta->get_attribute($name)
+        my $super_attr = $super->can("meta") && $super->meta->get_attribute($name)
             or next;
         return %{ $super_attr->_create_args };
     }