/usr/lib/perl5/Mouse/Meta/Role/Method.pm is in libmouse-perl 0.97-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 | package Mouse::Meta::Role::Method;
use Mouse::Util; # enables strict and warnings
use Mouse::Meta::Method;
our @ISA = qw(Mouse::Meta::Method);
sub _new{
my($class, %args) = @_;
my $self = bless \%args, $class;
if($class ne __PACKAGE__){
$self->meta->_initialize_object($self, \%args);
}
return $self;
}
1;
__END__
=head1 NAME
Mouse::Meta::Role::Method - A Mouse Method metaclass for Roles
=head1 VERSION
This document describes Mouse version 0.97
=head1 SEE ALSO
L<Moose::Meta::Role::Method>
=cut
|