29c16bb0cf85cdacdfeefe2394cd2d589c48dc28
[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 our $VERSION = '1.13';
7 $VERSION = eval $VERSION;
8 our $AUTHORITY = 'cpan:STEVAN';
9
10 use base 'Moose::Meta::Method::Accessor::Native::Array::Reader';
11
12 sub _maximum_arguments { 0 }
13
14 sub _return_value {
15     my $self        = shift;
16     my $slot_access = shift;
17
18     return "\@{ $slot_access }";
19 }
20
21 1;