projects
/
gitmo/Moose.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
38044d3a36c1b5526e5173d92263c70c725094e9
[gitmo/Moose.git]
/
lib
/
Moose
/
Meta
/
Method
/
Accessor
/
Native
/
Code
/
execute.pm
1
package Moose::Meta::Method::Accessor::Native::Code::execute;
2
3
use strict;
4
use warnings;
5
6
our $VERSION = '1.19';
7
$VERSION = eval $VERSION;
8
our $AUTHORITY = 'cpan:STEVAN';
9
10
use Moose::Role;
11
12
with 'Moose::Meta::Method::Accessor::Native::Reader';
13
14
sub _return_value {
15
my $self = shift;
16
my ($slot_access) = @_;
17
18
return $slot_access . '->(@_)';
19
}
20
21
no Moose::Role;
22
23
1;