1 package Moose::Meta::Attribute::Native::MethodProvider::Code;
5 $VERSION = eval $VERSION;
6 our $AUTHORITY = 'cpan:STEVAN';
9 my ($attr, $reader, $writer) = @_;
11 my ($self, @args) = @_;
12 $reader->($self)->(@args);
16 sub execute_method : method {
17 my ($attr, $reader, $writer) = @_;
19 my ($self, @args) = @_;
20 $reader->($self)->($self, @args);
34 Moose::Meta::Attribute::Native::MethodProvider::Code - role providing method generators for Code trait
38 This is a role which provides the method generators for
39 L<Moose::Meta::Attribute::Native::Trait::Code>. Please check there for
40 documentation on what methods are provided.
52 See L<Moose/BUGS> for details on reporting bugs.
56 Florian Ragwitz <rafl@debian.org>
58 =head1 COPYRIGHT AND LICENSE
60 Copyright 2007-2009 by Infinity Interactive, Inc.
62 L<http://www.iinteractive.com>
64 This library is free software; you can redistribute it and/or modify
65 it under the same terms as Perl itself.