Commit | Line | Data |
---|---|---|
bc71de54 | 1 | package Mouse::Meta::Role::Method; |
bc69ee88 | 2 | use Mouse::Util; # enables strict and warnings |
bc71de54 | 3 | |
f3bb863f | 4 | use Mouse::Meta::Method; |
5 | our @ISA = qw(Mouse::Meta::Method); | |
bc71de54 | 6 | |
9010458d | 7 | sub _new { |
8 | my $class = shift; | |
9 | return $class->meta->new_object(@_) | |
10 | if $class ne __PACKAGE__; | |
11 | return bless {@_}, $class; | |
12 | } | |
13 | ||
bc71de54 | 14 | 1; |
bc71de54 | 15 | __END__ |
16 | ||
1820fffe | 17 | =head1 NAME |
18 | ||
19 | Mouse::Meta::Role::Method - A Mouse Method metaclass for Roles | |
20 | ||
a25ca8d6 | 21 | =head1 VERSION |
22 | ||
f7e41eda | 23 | This document describes Mouse version 0.40_08 |
a25ca8d6 | 24 | |
1820fffe | 25 | =head1 SEE ALSO |
26 | ||
27 | L<Moose::Meta::Role::Method> | |
28 | ||
29 | =cut | |
30 |