projects
/
gitmo/Moose.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
82300d19ec506f35f7dafad0edd2dc49e632ad37
[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
use Moose::Role;
7
8
with 'Moose::Meta::Method::Accessor::Native::Reader';
9
10
sub _return_value {
11
my $self = shift;
12
my ($slot_access) = @_;
13
14
return $slot_access . '->($self, @_)';
15
}
16
17
no Moose::Role;
18
19
1;