1 package Moose::Meta::Method::Accessor::Native::Reader;
7 $VERSION = eval $VERSION;
8 our $AUTHORITY = 'cpan:STEVAN';
10 use base 'Moose::Meta::Method::Accessor::Native';
12 sub _generate_method {
18 $code .= "\n" . $self->_inline_pre_body(@_);
20 $code .= "\n" . 'my $self = shift;';
22 $code .= "\n" . $self->_inline_curried_arguments;
24 my $slot_access = $self->_inline_get($inv);
26 $code .= "\n" . $self->_reader_core( $inv, $slot_access, @_ );
34 my ( $self, $inv, $slot_access, @extra ) = @_;
38 $code .= "\n" . $self->_inline_check_argument_count;
39 $code .= "\n" . $self->_inline_process_arguments( $inv, $slot_access );
40 $code .= "\n" . $self->_inline_check_arguments;
42 $code .= "\n" . $self->_inline_check_lazy($inv);
43 $code .= "\n" . $self->_inline_post_body(@extra);
44 $code .= "\n" . $self->_inline_return_value($slot_access);
49 sub _inline_process_arguments {q{}}
51 sub _inline_return_value {
52 my ( $self, $slot_access ) = @_;
54 'return ' . $self->_return_value($slot_access) . ';';