lib/Moose/Meta/Method/Accessor/Native/Reader.pm

   1 package Moose::Meta::Method::Accessor::Native::Reader;
   2
   3 use strict;
   4 use warnings;
   5
   6 use Moose::Role;
   7
   8 with 'Moose::Meta::Method::Accessor::Native';
   9
  10 requires '_return_value';
  11
  12 sub _generate_method {
  13     my $self = shift;
  14
  15     my $inv         = '$self';
  16     my $slot_access = $self->_get_value($inv);
  17
  18     return (
  19         'sub {',
  20             'my ' . $inv . ' = shift;',
  21             $self->_inline_curried_arguments,
  22             $self->_inline_reader_core($inv, $slot_access, @_),
  23         '}',
  24     );
  25 }
  26
  27 sub _inline_reader_core {
  28     my $self = shift;
  29     my ($inv, $slot_access, @extra) = @_;
  30
  31     return (
  32         $self->_inline_check_argument_count,
  33         $self->_inline_process_arguments($inv, $slot_access),
  34         $self->_inline_check_arguments,
  35         $self->_inline_check_lazy($inv, '$type_constraint', '$type_constraint_obj'),
  36         $self->_inline_return_value($slot_access),
  37     );
  38 }
  39
  40 sub _inline_process_arguments { return }
  41
  42 sub _inline_check_arguments { return }
  43
  44 no Moose::Role;
  45
  46 1;