Dave Cross: Still Munging Data With Perl: Online event - Mar 27 Learn more

BEGIN {
$Moose::Meta::Method::Accessor::Native::Array::unshift::AUTHORITY = 'cpan:STEVAN';
}
BEGIN {
$Moose::Meta::Method::Accessor::Native::Array::unshift::VERSION = '2.0102'; # TRIAL
}
use strict;
-excludes => [
qw(
_inline_optimized_set_new_value
_return_value
)
]
};
sub _adds_members { 1 }
sub _potential_value {
my $self = shift;
my ($slot_access) = @_;
return '[ @_, @{ (' . $slot_access . ') } ]';
}
sub _inline_optimized_set_new_value {
my $self = shift;
my ($inv, $new, $slot_access) = @_;
return 'unshift @{ (' . $slot_access . ') }, @_;';
}
sub _return_value {
my $self = shift;
my ($slot_access) = @_;
return 'scalar @{ (' . $slot_access . ') }';
}
no Moose::Role;
1;