1 package Mouse::Meta::Method;
2 use Mouse::Util qw(:meta); # enables strict and warnings
5 '&{}' => sub{ $_[0]->body },
12 return $class->_new(@_);
16 my($class, %args) = @_;
17 my $self = bless \%args, $class;
19 if($class ne __PACKAGE__){
20 $self->meta->_initialize_object($self, \%args);
25 sub body { $_[0]->{body} }
26 sub name { $_[0]->{name} }
27 sub package_name { $_[0]->{package} }
28 sub associated_metaclass { $_[0]->{associated_metaclass} }
30 sub fully_qualified_name {
32 return $self->package_name . '::' . $self->name;
40 Mouse::Meta::Method - A Mouse Method metaclass
44 This document describes Mouse version 0.50_07
48 L<Moose::Meta::Method>