projects
/
gitmo/Moose.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
7d973042cc39074c830320d0e95b434c1ec70413
[gitmo/Moose.git]
/
lib
/
Moose
/
Meta
/
Attribute
/
Native
/
MethodProvider
/
Code.pm
1
package Moose::Meta::Attribute::Native::MethodProvider::Code;
2
use Moose::Role;
3
4
our $VERSION = '0.87';
5
$VERSION = eval $VERSION;
6
our $AUTHORITY = 'cpan:STEVAN';
7
8
sub execute : method {
9
my ( $attr, $reader, $writer ) = @_;
10
return sub { $reader->(@_)->(@_) };
11
}
12
13
no Moose::Role;
14
15
1;