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
|
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 v2.6.0
=head1 SEE ALSO
L<Moose::Meta::Role::Method>
=cut
|
