From: Yuval Kogman <nothingmuch@woobling.org>
Date: Sat, 28 Jun 2008 13:02:54 +0000 (+0000)
Subject: use SUPER::DOES (next::method breaks, but SUPER::DOES is still better than ->isa
X-Git-Tag: 0_55~74
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a25e611550d44687ae57ebbac2cb7c640574d492;p=gitmo%2FMoose.git

use SUPER::DOES (next::method breaks, but SUPER::DOES is still better than ->isa
---

diff --git a/lib/Moose/Object.pm b/lib/Moose/Object.pm
index e6ceebb..d59139c 100644
--- a/lib/Moose/Object.pm
+++ b/lib/Moose/Object.pm
@@ -76,7 +76,7 @@ sub DESTROY {
 sub DOES {
     my ( $self, $class_or_role_name ) = @_;
 
-    $self->isa($class_or_role_name)
+    $self->SUPER::DOES($class_or_role_name)
         or
     $self->does($class_or_role_name);
 }