1 package Moose::Meta::Attribute::Native::MethodProvider::Code;
5 $VERSION = eval $VERSION;
6 our $AUTHORITY = 'cpan:STEVAN';
9 my ( $attr, $reader, $writer ) = @_;
10 return sub { $reader->(@_)->(@_) };
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 All complex software has bugs lurking in it, and this module is no
42 exception. If you find a bug please either email me, or add the bug
47 Florian Ragwitz <rafl@debian.org>
49 =head1 COPYRIGHT AND LICENSE
51 Copyright 2007-2009 by Infinity Interactive, Inc.
53 L<http://www.iinteractive.com>
55 This library is free software; you can redistribute it and/or modify
56 it under the same terms as Perl itself.