lib/Mouse/Meta/Method.pm

   1 package Mouse::Meta::Method;
   2 use strict;
   3 use warnings;
   4
   5 use overload
   6     '&{}' => 'body',
   7     fallback => 1,
   8 ;
   9
  10 sub new{
  11     my($class, %args) = @_;
  12
  13     return bless \%args, $class;
  14 }
  15
  16 sub body        { $_[0]->{body}    }
  17 sub name        { $_[0]->{name}    }
  18 sub package_name{ $_[0]->{package} }
  19
  20
  21 1;
  22
  23 __END__