Sha256: 8d33e620c286451360183aec9398a21b9a43c6efe13cbb1cad45c99608b24132
Contents?: true
Size: 887 Bytes
Versions: 14
Compression:
Stored size: 887 Bytes
Contents
package Moose::Meta::Method::Accessor::Native::Array::pop;
our $VERSION = '2.2206';
use strict;
use warnings;
use Moose::Role;
with 'Moose::Meta::Method::Accessor::Native::Array::Writer';
sub _maximum_arguments { 0 }
sub _adds_members { 0 }
sub _potential_value {
my $self = shift;
my ($slot_access) = @_;
return '[ @{ (' . $slot_access . ') } > 1 '
. '? @{ (' . $slot_access . ') }[0..$#{ (' . $slot_access . ') } - 1] '
. ': () ]';
}
sub _inline_capture_return_value {
my $self = shift;
my ($slot_access) = @_;
return 'my $old = ' . $slot_access . '->[-1];';
}
sub _inline_optimized_set_new_value {
my $self = shift;
my ($inv, $new, $slot_access) = @_;
return 'pop @{ (' . $slot_access . ') };';
}
sub _return_value {
my $self = shift;
my ($slot_access) = @_;
return '$old';
}
no Moose::Role;
1;
Version data entries
14 entries across 7 versions & 1 rubygems