X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FMeta%2FMethod%2FAccessor%2FNative%2FHash%2Faccessor.pm;h=3632eec5585bcc2347be07bfaddbc1ea98ba8b1b;hb=6c19d3ee73a6b88da3bf877e8d0f6b649ed9c990;hp=af6868933962b7d643abf76d5104a82dba4a0536;hpb=a619fc2f7e80a7c8fc55c2e53ce5f4c98ad44dc8;p=gitmo%2FMoose.git diff --git a/lib/Moose/Meta/Method/Accessor/Native/Hash/accessor.pm b/lib/Moose/Meta/Method/Accessor/Native/Hash/accessor.pm index af68689..3632eec 100644 --- a/lib/Moose/Meta/Method/Accessor/Native/Hash/accessor.pm +++ b/lib/Moose/Meta/Method/Accessor/Native/Hash/accessor.pm @@ -11,8 +11,6 @@ with 'Moose::Meta::Method::Accessor::Native::Hash::set' => { _generate_method _minimum_arguments _maximum_arguments - _inline_check_arguments - _return_value ) ] }, @@ -23,7 +21,9 @@ with 'Moose::Meta::Method::Accessor::Native::Hash::set' => { _minimum_arguments _maximum_arguments _inline_check_argument_count + _inline_check_arguments _inline_process_arguments + _return_value ) ] }; @@ -42,7 +42,7 @@ sub _generate_method { # get 'if (@_ == 1) {', $self->_inline_check_var_is_valid_key('$_[0]'), - $self->Moose::Meta::Method::Accessor::Native::Hash::get::_inline_return_value($slot_access), + $slot_access . '->{$_[0]}', '}', # set 'else {',