Help for this page

Select Code to Download

Select or download this

my %DISPTBL = (
    INCREMENT => sub {
...
    return $DISPTBL{$action}(@_);
}
...