1 package Mouse::Meta::Method;
2 use Mouse::Util qw(:meta); # enables strict and warnings
5 '&{}' => sub{ $_[0]->body },
12 return $class->_new(@_);
17 return $class->meta->new_object(@_)
18 if $class ne __PACKAGE__;
20 return bless {@_}, $class;
23 sub body { $_[0]->{body} }
24 sub name { $_[0]->{name} }
25 sub package_name { $_[0]->{package} }
26 sub associated_metaclass { $_[0]->{associated_metaclass} }
28 sub fully_qualified_name {
30 return $self->package_name . '::' . $self->name;
38 Mouse::Meta::Method - A Mouse Method metaclass
42 This document describes Mouse version 0.40_03
46 L<Moose::Meta::Method>