Help for this page

Select Code to Download


  1. or download this
    my $class = shift; # at the top of the function
    return bless \@deck, $class; # at the bottom
    
  2. or download this
    use List::util; # use the module but do not import shuffle
    
    ...
      @$out = List::Util::shuffle(@$deck);
      return wantarray ? @$out : $out;
    }