1 package Moose::Meta::Method::Accessor::Native::Hash::accessor;
8 with 'Moose::Meta::Method::Accessor::Native::Hash::set' => {
17 'Moose::Meta::Method::Accessor::Native::Hash::get' => {
23 _inline_check_argument_count
24 _inline_check_arguments
25 _inline_process_arguments
31 sub _generate_method {
35 my $slot_access = $self->_get_value($inv);
39 'my ' . $inv . ' = shift;',
40 $self->_inline_curried_arguments,
41 $self->_inline_check_lazy($inv, '$type_constraint', '$type_coercion', '$type_message'),
44 # XXX: ugh, this is a hack - we need _return_value from
45 # both ::set and ::get, but we can only have one, so we pick
46 # the one from ::set and munge it to work for the ::get case
47 # this should be fixed in a better way
50 $self->_inline_check_var_is_valid_key('$_[0]'),
51 $slot_access . '->{$_[0]}',
55 $self->_inline_writer_core($inv, $slot_access),
61 sub _minimum_arguments { 1 }
62 sub _maximum_arguments { 2 }