Add a test file for type constraints

[gitmo/Mouse.git] / lib / Mouse / Meta / Method.pm

package Mouse::Meta::Method;\r
use strict;\r
use warnings;\r
\r
use overload\r
    '&{}' => 'body',\r
    fallback => 1,\r
;\r
\r
sub new{\r
    my($class, %args) = @_;\r
\r
    return bless \%args, $class;\r
}\r
\r
sub body   { $_[0]->{body} }\r
sub name   { $_[0]->{name} }\r
sub package{ $_[0]->{name} }\r
\r
\r
1;\r
\r
__END__\r