package Moose::Meta::Attribute::Native::MethodProvider::Code;
use Moose::Role;
-our $VERSION = '0.89_02';
+our $VERSION = '0.93';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
sub execute : method {
my ( $attr, $reader, $writer ) = @_;
- return sub { $reader->(@_)->(@_) };
+ return sub { my ($self, @args) = @_; $reader->($self)->(@args) };
}
no Moose::Role;
=head1 BUGS
-All complex software has bugs lurking in it, and this module is no
-exception. If you find a bug please either email me, or add the bug
-to cpan-RT.
+See L<Moose/BUGS> for details on reporting bugs.
=head1 AUTHOR