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 | |
612d3e1a |
22 | sub fully_qualified_name { |
23 | my $self = shift; |
24 | return $self->package_name . '::' . $self->name; |
25 | } |
8e64d0fa |
26 | |
27 | 1; |
28 | |
29 | __END__ |
1820fffe |
30 | |
31 | =head1 NAME |
32 | |
33 | Mouse::Meta::Method - A Mouse Method metaclass |
34 | |
35 | =head1 SEE ALSO |
36 | |
37 | L<Moose::Meta::Method> |
38 | |
31c5194b |
39 | L<Class::MOP::Method> |
40 | |
1820fffe |
41 | =cut |