Add a test file for type constraints
[gitmo/Mouse.git] / lib / Mouse / Meta / Method.pm
CommitLineData
6cfa1e5e 1package Mouse::Meta::Method;\r
2use strict;\r
3use warnings;\r
4\r
5use overload\r
6 '&{}' => 'body',\r
7 fallback => 1,\r
8;\r
9\r
10sub new{\r
11 my($class, %args) = @_;\r
12\r
13 return bless \%args, $class;\r
14}\r
15\r
16sub body { $_[0]->{body} }\r
17sub name { $_[0]->{name} }\r
18sub package{ $_[0]->{name} }\r
19\r
20\r
211;\r
22\r
23__END__\r