1 package Mouse::Meta::Method;
2 use Mouse::Util qw(:meta); # enables strict and warnings
10 my($class, %args) = @_;
12 return bless \%args, $class;
15 sub body { $_[0]->{body} }
16 sub name { $_[0]->{name} }
17 sub package_name{ $_[0]->{package} }
19 sub fully_qualified_name {
21 return $self->package_name . '::' . $self->name;
30 Mouse::Meta::Method - A Mouse Method metaclass
34 L<Moose::Meta::Method>