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__
=head1 VERSION
-This document describes Mouse version 0.76
+This document describes Mouse version 0.91
=head1 METHODS
=head2 C<< $object->dump($maxdepth) -> Str >>
This is a handy utility for dumping an object with Data::Dumper.
-By default, the maximun depth is 3, to avoid making a mess.
+By default, the maximum depth is 3, to avoid making a mess.
-=head C<< $object->meta() -> MetaClass >>
+=head2 C<< $object->meta() -> MetaClass >>
This is a method which provides access to the object's metaclass.