Tie-Pick
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Tie/Pick.pm view on Meta::CPAN
no warnings 'syntax';
our $VERSION = '2009110701';
sub TIESCALAR {
my $class = shift;
do { require Carp;
Carp::croak ("tie needs more arguments")
} unless @_;
bless [@_] => $class;
}
sub FETCH {
my $values = shift;
return undef unless @$values;
my $index = int rand @$values;
unless ($index == $#$values) {
@{$values} [$index, $#$values] = @{$values} [$#$values, $index];
}
pop @$values;
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.362 second using v1.00-cache-2.02-grep-82fe00e-cpan-d29e8ade9f55 )