If you have a default value to return, this is where I prefer to chain the "x ? y : z" operator:

return ! $bindings        ? undef                  :
       var_match $pattern ? extend $bindings       :
       @$input            ? pat_match(rest $input) :
                            $default_value;
[download]

I know that it looks a little odd at first, but once you get used to the syntax, I find it even easier than case or switch statements.

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.