1 package Moose::Meta::Attribute::Native::MethodProvider::Code;
4 our $VERSION = '0.93_01';
5 $VERSION = eval $VERSION;
6 our $AUTHORITY = 'cpan:STEVAN';
9 my ( $attr, $reader, $writer ) = @_;
10 return sub { my ($self, @args) = @_; $reader->($self)->(@args) };
23 Moose::Meta::Attribute::Native::MethodProvider::Code
27 This is a role which provides the method generators for
28 L<Moose::Meta::Attribute::Native::Trait::Code>. Please check there for
29 documentation on what methods are provided.
41 See L<Moose/BUGS> for details on reporting bugs.
45 Florian Ragwitz <rafl@debian.org>
47 =head1 COPYRIGHT AND LICENSE
49 Copyright 2007-2009 by Infinity Interactive, Inc.
51 L<http://www.iinteractive.com>
53 This library is free software; you can redistribute it and/or modify
54 it under the same terms as Perl itself.