Tidy
[gitmo/Mouse.git] / lib / Mouse / Meta / Method.pm
CommitLineData
8e64d0fa 1package Mouse::Meta::Method;
2use strict;
3use warnings;
4
53875581 5use Mouse::Util qw(:meta);
6
8e64d0fa 7use overload
8 '&{}' => 'body',
9 fallback => 1,
10;
11
12sub new{
13 my($class, %args) = @_;
14
15 return bless \%args, $class;
16}
17
18sub body { $_[0]->{body} }
19sub name { $_[0]->{name} }
20sub package_name{ $_[0]->{package} }
21
612d3e1a 22sub fully_qualified_name {
23 my $self = shift;
24 return $self->package_name . '::' . $self->name;
25}
8e64d0fa 26
271;
28
29__END__
1820fffe 30
31=head1 NAME
32
33Mouse::Meta::Method - A Mouse Method metaclass
34
35=head1 SEE ALSO
36
37L<Moose::Meta::Method>
38
31c5194b 39L<Class::MOP::Method>
40
1820fffe 41=cut