1 package Moose::Meta::Method::Accessor::Native::Hash::get;
6 use Scalar::Util qw( looks_like_number );
9 $VERSION = eval $VERSION;
10 our $AUTHORITY = 'cpan:STEVAN';
14 with 'Moose::Meta::Method::Accessor::Native::Reader' => {
18 _inline_check_arguments
22 'Moose::Meta::Method::Accessor::Native::Hash';
24 sub _minimum_arguments { 1 }
26 sub _inline_check_arguments {
31 . $self->_inline_check_var_is_valid_key('$_') . "\n" . '}';
36 my $slot_access = shift;
38 return "\@_ > 1 ? \@{ ($slot_access) }{\@_} : ${slot_access}->{ \$_[0] }";