Commit | Line | Data |
8e64d0fa |
1 | package Mouse::Meta::Method; |
2 | use strict; |
3 | use warnings; |
4 | |
53875581 |
5 | use Mouse::Util qw(:meta); |
6 | |
8e64d0fa |
7 | use overload |
8 | '&{}' => 'body', |
9 | fallback => 1, |
10 | ; |
11 | |
12 | sub new{ |
13 | my($class, %args) = @_; |
14 | |
15 | return bless \%args, $class; |
16 | } |
17 | |
18 | sub body { $_[0]->{body} } |
19 | sub name { $_[0]->{name} } |
20 | sub package_name{ $_[0]->{package} } |
21 | |
22 | |
23 | 1; |
24 | |
25 | __END__ |
1820fffe |
26 | |
27 | =head1 NAME |
28 | |
29 | Mouse::Meta::Method - A Mouse Method metaclass |
30 | |
31 | =head1 SEE ALSO |
32 | |
33 | L<Moose::Meta::Method> |
34 | |
35 | =cut |