lib/Mouse/Meta/Method.pm

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