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

   1 package Moose::Meta::Method::Accessor::Native::Array::Reader;
   2
   3 use strict;
   4 use warnings;
   5
   6 our $VERSION = '1.13';
   7 $VERSION = eval $VERSION;
   8 our $AUTHORITY = 'cpan:STEVAN';
   9
  10 use base 'Moose::Meta::Method::Accessor::Native::Array';
  11
  12 sub _generate_method {
  13     my $self = shift;
  14
  15     my $inv = '$self';
  16
  17     my $code = 'sub {';
  18     $code .= "\n" . $self->_inline_pre_body(@_);
  19
  20     $code .= "\n" . 'my $self = shift;';
  21     $code .= "\n" . $self->_inline_curried_arguments;
  22     $code .= "\n" . $self->_inline_process_arguments;
  23     $code .= "\n" . $self->_inline_check_arguments;
  24
  25     $code
  26         .= "\n"
  27         . $self->_inline_throw_error(
  28         q{"Cannot assign a value to a read-only accessor"}, 'data => \@_' )
  29         . ' if @_ > 1;';
  30
  31     $code .= "\n" . $self->_inline_check_lazy($inv);
  32     $code .= "\n" . $self->_inline_post_body(@_);
  33
  34     my $slot_access = $self->_inline_get($inv);
  35
  36     $code .= "\n" . 'return ' . $self->_return_value($slot_access) . ';';
  37     $code .= "\n}";
  38
  39     return $code;
  40 }
  41
  42 1;