1 package Moose::Meta::Method::Accessor::Native::Array::sort_in_place;
10 with 'Moose::Meta::Method::Accessor::Native::Array::Writer' => {
14 _inline_check_arguments
20 sub _maximum_arguments { 1 }
22 sub _inline_check_arguments {
26 'if (@_ && !Params::Util::_CODELIKE($_[0])) {',
27 $self->_inline_throw_error(
28 '"The argument passed to sort_in_place must be a code '
35 sub _adds_members { 0 }
37 sub _potential_value {
39 my ($slot_access) = @_;
42 . '? sort { $_[0]->($a, $b) } @{ (' . $slot_access . ') } '
43 . ': sort @{ (' . $slot_access . ') } ]';
46 sub _return_value { '' }