1 package Moose::Meta::Method::Accessor::Native::Reader;
7 $VERSION = eval $VERSION;
8 our $AUTHORITY = 'cpan:STEVAN';
12 with 'Moose::Meta::Method::Accessor::Native';
14 requires '_return_value';
16 sub _generate_method {
20 my $slot_access = $self->_inline_get($inv);
24 $self->_inline_pre_body(@_),
25 'my ' . $inv . ' = shift;',
26 $self->_inline_curried_arguments,
27 $self->_reader_core($inv, $slot_access, @_),
34 my ($inv, $slot_access, @extra) = @_;
37 $self->_inline_check_argument_count,
38 $self->_inline_process_arguments($inv, $slot_access),
39 $self->_inline_check_arguments,
40 $self->_inline_check_lazy($inv),
41 $self->_inline_post_body(@extra),
42 $self->_inline_return_value($slot_access),
46 sub _inline_process_arguments { return }
48 sub _inline_check_arguments { return }