in reply to input switch

You could use Switch: 
use Switch;

switch ($CGI->param('action')) {
    case 'delayed_inv' { $to_do->delayedinv() }
    case 'del_inv'     { $to_do->del_inv()    }
    case 'payed'       { $to_do->payed()      }
    ...
    else               { $to_do->defscreen()  }
}

[download]
   larryk                                          
perl -le "s,,reverse killer,e,y,rifle,lycra,,print"

Replies are listed 'Best First'.
Re^2: input switch
by Aristotle (Chancellor) on Sep 07, 2002 at 00:25 UTC
    The problem with that module is that it's a source filter and easily malfunctions. For any than the simplest scripts, it won't work.

    Makeshifts last the longest.

[reply]

In Section Seekers of Perl Wisdom