make github the primary repository
[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 use Moose::Role;
9
10 with 'Moose::Meta::Method::Accessor::Native::Reader';
11
12 sub _maximum_arguments { 0 }
13
14 sub _return_value {
15     my $self = shift;
16     my ($slot_access) = @_;
17
18     return 'map { $_, ' . $slot_access . '->{$_} } '
19              . 'keys %{ (' . $slot_access . ') }';
20 }
21
22 no Moose::Role;
23
24 1;