1 package Mouse::Meta::Method;
2 use Mouse::Util qw(:meta); # enables strict and warnings
8 '&{}' => sub{ $_[0]->body },
15 return $class->_new(@_);
19 my($class, %args) = @_;
20 my $self = bless \%args, $class;
22 if($class ne __PACKAGE__){
23 $self->meta->_initialize_object($self, \%args);
28 sub body { $_[0]->{body} }
29 sub name { $_[0]->{name} }
30 sub package_name { $_[0]->{package} }
31 sub associated_metaclass { $_[0]->{associated_metaclass} }
33 sub fully_qualified_name {
35 return $self->package_name . '::' . $self->name;
42 return Scalar::Util::blessed($r)
43 && $l->body == $r->body
44 && $l->name eq $r->name
45 && $l->package_name eq $r->package_name;
53 Mouse::Meta::Method - A Mouse Method metaclass
57 This document describes Mouse version 0.50_08
61 L<Moose::Meta::Method>