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 (file)
--- 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);
 }