lib/Mouse/Meta/Method.pm

   1 package Mouse::Meta::Method;
   2 use strict;
   3 use warnings;
   4
   5 use Mouse::Util qw(:meta);
   6
   7 use overload
   8     '&{}' => 'body',
   9     fallback => 1,
  10 ;
  11
  12 sub new{
  13     my($class, %args) = @_;
  14
  15     return bless \%args, $class;
  16 }
  17
  18 sub body        { $_[0]->{body}    }
  19 sub name        { $_[0]->{name}    }
  20 sub package_name{ $_[0]->{package} }
  21
  22 sub fully_qualified_name {
  23     my $self = shift;
  24     return $self->package_name . '::' . $self->name;
  25 }
  26
  27 1;
  28
  29 __END__
  30
  31 =head1 NAME
  32
  33 Mouse::Meta::Method - A Mouse Method metaclass
  34
  35 =head1 SEE ALSO
  36
  37 L<Moose::Meta::Method>
  38
  39 L<Class::MOP::Method>
  40
  41 =cut