1 package Moose::Meta::Method::Accessor::Native::Hash::kv;
6 use Scalar::Util qw( looks_like_number );
9 $VERSION = eval $VERSION;
10 our $AUTHORITY = 'cpan:STEVAN';
12 use base 'Moose::Meta::Method::Accessor::Native::Reader';
14 sub _minimum_arguments { 0 }
16 sub _maximum_arguments { 0 }
20 my $slot_access = shift;
22 return "map { [ \$_, ${slot_access}->{\$_} ] } keys \%{ $slot_access }";