1 package Mouse::Meta::Method;
5 use Mouse::Util qw(:meta);
13 my($class, %args) = @_;
15 return bless \%args, $class;
18 sub body { $_[0]->{body} }
19 sub name { $_[0]->{name} }
20 sub package_name{ $_[0]->{package} }
22 sub fully_qualified_name {
24 return $self->package_name . '::' . $self->name;
33 Mouse::Meta::Method - A Mouse Method metaclass
37 L<Moose::Meta::Method>