lib/Mouse/Meta/Method.pm

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