Commit | Line | Data |
---|---|---|
8e64d0fa | 1 | package Mouse::Meta::Method; |
bc69ee88 | 2 | use Mouse::Util qw(:meta); # enables strict and warnings |
53875581 | 3 | |
8e64d0fa | 4 | use overload |
5 | '&{}' => 'body', | |
6 | fallback => 1, | |
7 | ; | |
8 | ||
9 | sub new{ | |
10 | my($class, %args) = @_; | |
11 | ||
12 | return bless \%args, $class; | |
13 | } | |
14 | ||
15 | sub body { $_[0]->{body} } | |
16 | sub name { $_[0]->{name} } | |
17 | sub package_name{ $_[0]->{package} } | |
18 | ||
612d3e1a | 19 | sub fully_qualified_name { |
20 | my $self = shift; | |
21 | return $self->package_name . '::' . $self->name; | |
22 | } | |
8e64d0fa | 23 | |
24 | 1; | |
25 | ||
26 | __END__ | |
1820fffe | 27 | |
28 | =head1 NAME | |
29 | ||
30 | Mouse::Meta::Method - A Mouse Method metaclass | |
31 | ||
a25ca8d6 | 32 | =head1 VERSION |
33 | ||
06a970ab | 34 | This document describes Mouse version 0.38 |
a25ca8d6 | 35 | |
1820fffe | 36 | =head1 SEE ALSO |
37 | ||
38 | L<Moose::Meta::Method> | |
39 | ||
31c5194b | 40 | L<Class::MOP::Method> |
41 | ||
1820fffe | 42 | =cut |