Help for this page

Select Code to Download


  1. or download this
    use List::Util qw/shuffle/;
my @order = shuffle qw/ continue 0 next 1 redo 2 last 3 /;
  2. or download this
    my @keyorder = shuffle qw/ continue next redo last /;
  3. or download this
    sub continue () { 0 }
sub next () { 1 }
sub redo () { 2 }
sub last () { 3 }
  4. or download this
    our $clist;
BEGIN { $clist = {continue=>0, next=>1, redo=>2, last=>3 } }
use constant $clist;