I'm working on a project which uses TheSchwartz, and I saw that it was supposed to work with multiple databases.

I was not sure how it would maintain some of it's stuff over more than one database, so I tested it - and found that all the stuff kept going to the same database server.

I looked at the source, and found that it's routine for shuffling databases uses Util::List, and so I tested it:

perl -e 'use List::Util qw(shuffle); @a=[1,2,3,4,5,6,7,8,9,10]; foreac
+h (1..24) { print join(",",@ { shuffle(@a) })."\n"}'
[download]

sub shuffle (@) {
  my @a=\(@_);
  my $n;
  my $i=@_;
  map {
    $n = rand($i--);
    (${$a[$n]}, $a[$n] = $a[$i])[0];
  } @_;
}
[download]