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

   1 package Moose::Meta::Method::Accessor::Native::Array::pop;
   2
   3 use strict;
   4 use warnings;
   5
   6 use Moose::Role;
   7
   8 with 'Moose::Meta::Method::Accessor::Native::Array::Writer' => {
   9     -excludes => [
  10         qw( _maximum_arguments
  11             _inline_capture_return_value
  12             _inline_optimized_set_new_value
  13             _return_value )
  14     ]
  15 };
  16
  17 sub _maximum_arguments { 0 }
  18
  19 sub _adds_members { 0 }
  20
  21 sub _potential_value {
  22     my $self = shift;
  23     my ($slot_access) = @_;
  24
  25     return '[ @{ (' . $slot_access . ') } > 1 '
  26              . '? @{ (' . $slot_access . ') }[0..$#{ (' . $slot_access . ') } - 1] '
  27              . ': () ]';
  28 }
  29
  30 sub _inline_capture_return_value {
  31     my $self = shift;
  32     my ($slot_access) = @_;
  33
  34     return 'my $old = ' . $slot_access . '->[-1];';
  35 }
  36
  37 sub _inline_optimized_set_new_value {
  38     my $self = shift;
  39     my ($inv, $new, $slot_access) = @_;
  40
  41     return 'pop @{ (' . $slot_access . ') };';
  42 }
  43
  44 sub _return_value {
  45     my $self = shift;
  46     my ($slot_access) = @_;
  47
  48     return '$old';
  49 }
  50
  51 no Moose::Role;
  52
  53 1;