Select Code to Download

use constant {continue=>0, next=>1, redo=>2, last=>3 };

our $clist = {continue=>0, next=>1, redo=>2, last=>3 };
use constant $clist;

#(Using): alias tperl='perl -we'\''use strict; use P;'
> tperl
...
use constant $clist;
P "redo=%s, last=%s", &redo, &last;'
redo=2, last=3