use strict;
use warnings;
+use Mouse::Util qw(:meta);
+
use overload
'&{}' => 'body',
fallback => 1,
return bless \%args, $class;
}
-sub body { $_[0]->{body} }
-sub name { $_[0]->{name} }
-sub package{ $_[0]->{name} }
+sub body { $_[0]->{body} }
+sub name { $_[0]->{name} }
+sub package_name{ $_[0]->{package} }
1;
__END__
+
+=head1 NAME
+
+Mouse::Meta::Method - A Mouse Method metaclass
+
+=head1 SEE ALSO
+
+L<Moose::Meta::Method>
+
+=cut