1 package Moose::Meta::Method::Accessor::Native::Hash::accessor;
6 our $VERSION = '1.9900';
7 $VERSION = eval $VERSION;
8 our $AUTHORITY = 'cpan:STEVAN';
12 with 'Moose::Meta::Method::Accessor::Native::Hash::set' => {
18 _inline_check_arguments
23 'Moose::Meta::Method::Accessor::Native::Hash::get' => {
29 _inline_check_argument_count
30 _inline_process_arguments
35 sub _generate_method {
39 my $slot_access = $self->_get_value($inv);
43 'my ' . $inv . ' = shift;',
44 $self->_inline_curried_arguments,
45 $self->_inline_check_lazy($inv, '$type_constraint', '$type_constraint_obj'),
48 $self->_inline_check_var_is_valid_key('$_[0]'),
49 $self->Moose::Meta::Method::Accessor::Native::Hash::get::_inline_return_value($slot_access),
53 $self->_inline_writer_core($inv, $slot_access),
59 sub _minimum_arguments { 1 }
60 sub _maximum_arguments { 2 }