note
broquaint
What marvellous timing as I can point you to my new module, <tt>[cpan://Switch::Perlish]</tt> (which should be available on CPAN any moment now if it isn't already). So extrapolating from your node this code should do the job:
<code>
use Switch::Perlish;
switch $your_var, sub {
case 'this', \&this_function;
case 'that', \&that_function;
case 'the', \&the_function;
case 'other', \&other_function;
default
sub { print "Nothing matched '$your_var'\n" };
};
</code>
<div class="pmsig"><div class="pmsig-87452">
HTH
<p/>
<tt>_________<br><u>broquaint</u></tt>
</div></div>
458948
458948