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