The dispatch metaphor I use is something like the following:

$Dispatch = ("foo" => \&foo_func,
             "bar" => \&bar_func,);

$action = $q->get_this_action();

if (exists $Dispatch->{$action}) {
  $Dispatch->{$action}->(@args_that_everyone_gets);
} else {
  # no action, do the default, if any
}
[download]

Of course, you'll have to figure out what the current action should be and how args determined for the dispatch functions.

This bit of code is nearly as useful as an echo loop. I agree with the earlier poster that stringifying your code is probably not I good idea. eval() is powerful ju-ju and can easily be abused by black hats if you're aren't careful (e.g. something like this type of bug afflected SOAP::Lite awhile ago).

By explicitly mapping your "public" function names to private implementing functions, you can protect yourself from someone trying to execute an arbitrary perl function.

Hope this helps,

--Joe