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 our $VERSION = '1.9900';
   7 $VERSION = eval $VERSION;
   8 our $AUTHORITY = 'cpan:STEVAN';
   9
  10 use Moose::Role;
  11
  12 with 'Moose::Meta::Method::Accessor::Native';
  13
  14 requires '_return_value';
  15
  16 sub _generate_method {
  17     my $self = shift;
  18
  19     my $inv         = '$self';
  20     my $slot_access = $self->_get_value($inv);
  21
  22     return (
  23         'sub {',
  24             'my ' . $inv . ' = shift;',
  25             $self->_inline_curried_arguments,
  26             $self->_inline_reader_core($inv, $slot_access, @_),
  27         '}',
  28     );
  29 }
  30
  31 sub _inline_reader_core {
  32     my $self = shift;
  33     my ($inv, $slot_access, @extra) = @_;
  34
  35     return (
  36         $self->_inline_check_argument_count,
  37         $self->_inline_process_arguments($inv, $slot_access),
  38         $self->_inline_check_arguments,
  39         $self->_inline_check_lazy($inv, '$type_constraint', '$type_constraint_obj'),
  40         $self->_inline_return_value($slot_access),
  41     );
  42 }
  43
  44 sub _inline_process_arguments { return }
  45
  46 sub _inline_check_arguments { return }
  47
  48 no Moose::Role;
  49
  50 1;