Re: Switch.pm or possible alternatives

[broquaint]

in reply to Switch.pm or possible alternatives

What marvellous timing as I can point you to my new module, Switch::Perlish (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:

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" };
};

[BrowserUk]

broquaint++. Very clever indeed.

I wish I'd written that :). I have had half a dozen attempts at doing so and got near to something usable a few times, but always got hung up on weird syntax and error handling.

You could remove the need for the 'sub' keyword on the 'default' with a prototype, but that would be inconsistant with 'case'. Now, if only prototypes allowed the use of & in the positions other than the first to accept a bare-block, this could be damn nearly perfect.

Nice!

[smack]

Thank you so much for your help. I will definitely be using this module!

smack