package Mouse::Meta::Method; use Mouse::Util qw(:meta); # enables strict and warnings use overload '&{}' => sub{ $_[0]->body }, fallback => 1, ; sub wrap{ my $class = shift; return $class->_new(@_); } sub _new{ my($class, %args) = @_; my $self = bless \%args, $class; if($class ne __PACKAGE__){ $self->meta->_initialize_object($self, \%args); } return $self; } sub body { $_[0]->{body} } sub name { $_[0]->{name} } sub package_name { $_[0]->{package} } sub associated_metaclass { $_[0]->{associated_metaclass} } sub fully_qualified_name { my($self) = @_; return $self->package_name . '::' . $self->name; } 1; __END__ =head1 NAME Mouse::Meta::Method - A Mouse Method metaclass =head1 VERSION This document describes Mouse version 0.50_01 =head1 SEE ALSO L L =cut