package Moose::Meta::Attribute::Native::MethodProvider::Code;
use Moose::Role;
-our $VERSION = '0.93';
+our $VERSION = '1.09';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
sub execute : method {
- my ( $attr, $reader, $writer ) = @_;
- return sub { my ($self, @args) = @_; $reader->($self)->(@args) };
+ my ($attr, $reader, $writer) = @_;
+ return sub {
+ my ($self, @args) = @_;
+ $reader->($self)->(@args);
+ };
+}
+
+sub execute_method : method {
+ my ($attr, $reader, $writer) = @_;
+ return sub {
+ my ($self, @args) = @_;
+ $reader->($self)->($self, @args);
+ };
}
no Moose::Role;
=head1 NAME
-Moose::Meta::Attribute::Native::MethodProvider::Code
+Moose::Meta::Attribute::Native::MethodProvider::Code - role providing method generators for Code trait
=head1 DESCRIPTION