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