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

package Mouse::Meta::Method;
use strict;
use warnings;

use overload
    '&{}' => 'body',
    fallback => 1,
;

sub new{
    my($class, %args) = @_;

    return bless \%args, $class;
}

sub body        { $_[0]->{body}    }
sub name        { $_[0]->{name}    }
sub package_name{ $_[0]->{package} }


1;

__END__
Commit	Line	Data
8e64d0fa	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__