complicated expressions can't be dereferenced directly
[gitmo/Moose.git] / lib / Moose / Meta / Method / Accessor / Native / Hash / elements.pm
1 package Moose::Meta::Method::Accessor::Native::Hash::elements;
2
3 use strict;
4 use warnings;
5
6 use Scalar::Util qw( looks_like_number );
7
8 our $VERSION = '1.16';
9 $VERSION = eval $VERSION;
10 our $AUTHORITY = 'cpan:STEVAN';
11
12 use Moose::Role;
13
14 with 'Moose::Meta::Method::Accessor::Native::Reader' =>
15     { -excludes => ['_maximum_arguments'] };
16
17 sub _maximum_arguments { 0 }
18
19 sub _return_value {
20     my $self        = shift;
21     my $slot_access = shift;
22
23     return "map { \$_, ${slot_access}->{\$_} } keys \%{ ($slot_access) }";
24 }
25
26 no Moose::Role;
27
28 1;