projects
/
gitmo/Moose.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
stop using excludes within moose, since it's no longer necessary
[gitmo/Moose.git]
/
lib
/
Moose
/
Meta
/
Method
/
Accessor
/
Native
/
Array
/
shuffle.pm
1
package Moose::Meta::Method::Accessor::Native::Array::shuffle;
2
3
use strict;
4
use warnings;
5
6
use List::Util ();
7
8
use Moose::Role;
9
10
with 'Moose::Meta::Method::Accessor::Native::Reader';
11
12
sub _maximum_arguments { 0 }
13
14
sub _return_value {
15
my $self = shift;
16
my ($slot_access) = @_;
17
18
return 'List::Util::shuffle @{ (' . $slot_access . ') }';
19
}
20
21
no Moose::Role;
22
23
1;