1 package Moose::Meta::Method::Accessor::Native::Hash::accessor;
8 with 'Moose::Meta::Method::Accessor::Native::Hash::set' => {
14 _inline_check_arguments
19 'Moose::Meta::Method::Accessor::Native::Hash::get' => {
25 _inline_check_argument_count
26 _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 $self->_inline_check_var_is_valid_key('$_[0]'),
45 $self->Moose::Meta::Method::Accessor::Native::Hash::get::_inline_return_value($slot_access),
49 $self->_inline_writer_core($inv, $slot_access),
55 sub _minimum_arguments { 1 }
56 sub _maximum_arguments { 2 }