Re: input switch

[larryk]

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()  }
}

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

[Aristotle]

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.