|
BEGIN {
$Moose::Meta::Method::Accessor::Native::Array::unshift::AUTHORITY = 'cpan:STEVAN' ;
}
BEGIN {
$Moose::Meta::Method::Accessor::Native::Array::unshift::VERSION = '2.0102' ;
}
-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;
|