X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FObject.pm;fp=lib%2FMouse%2FObject.pm;h=9975c65774551ee034da5033970d6a160b95bf4d;hp=73184d1e3e7d96723da2a3bc02f706d84a326ea9;hb=d8ac424a86a0d9703f3e0502c8935b4851bf29af;hpb=9e69967c28f2cd597d23572220fe675570ec1821

diff --git a/lib/Mouse/Object.pm b/lib/Mouse/Object.pm
index 73184d1..9975c65 100644
--- a/lib/Mouse/Object.pm
+++ b/lib/Mouse/Object.pm
@@ -1,6 +1,12 @@
 package Mouse::Object;
 use Mouse::Util qw(does dump meta); # enables strict and warnings
 # all the stuff are defined in XS or PP
+
+sub DOES {
+    my($self, $class_or_role_name) = @_;
+    return $self->isa($class_or_role_name) || $self->does($class_or_role_name);
+}
+
 1;
 __END__