/usr/lib/perl5/Mouse/Object.pm is in libmouse-perl 2.1.0-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 | 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 NAME
Mouse::Object - The base object for Mouse classes
=head1 VERSION
This document describes Mouse version 2.1.0
=head1 METHODS
=head2 C<< $class->new(%args | \%args) -> Object >>
Instantiates a new C<Mouse::Object>. This is obviously intended for subclasses.
=head2 C<< $class->BUILDARGS(@args) -> HashRef >>
Lets you override the arguments that C<new> takes.
It must return a HashRef of parameters.
=head2 C<< $object->BUILDALL(\%args) >>
Calls C<BUILD> on each class in the class hierarchy. This is called at the
end of C<new>.
=head2 C<< $object->BUILD(\%args) >>
You may put any business logic initialization in BUILD methods. You don't
need to redispatch or return any specific value.
=head2 C<< $object->DEMOLISHALL >>
Calls C<DEMOLISH> on each class in the class hierarchy. This is called at
C<DESTROY> time.
=head2 C<< $object->DEMOLISH >>
You may put any business logic deinitialization in DEMOLISH methods. You don't
need to redispatch or return any specific value.
=head2 C<< $object->does($role_name) -> Bool >>
This will check if the invocant's class B<does> a given C<$role_name>.
This is similar to C<isa> for object, but it checks the roles instead.
=head2 C<< $object->dump($maxdepth) -> Str >>
This is a handy utility for dumping an object with Data::Dumper.
By default, the maximum depth is 3, to avoid making a mess.
=head2 C<< $object->meta() -> MetaClass >>
This is a method which provides access to the object's metaclass.
=head1 SEE ALSO
L<Moose::Object>
=cut
|