[ABE.pm] perl 5.10 rules! - a switch statement

Michael C. Toren mct at toren.net
Mon Jun 4 15:32:53 PDT 2007

I have to say that I'm fairly unimpressed with "given/when", but *this*:

> In 5.10, you could have solved this problem at the outside by writing:
>   die "We don't support your browser!" if $user_agent ~~ $unsupported_browser;
> When you started out, you'd have put a string in there, and it would use eq.
> Later, you'd put in an arrayref, and it would check whether $user_agent was
> in the arrayref.  Finally, you'd put in a coderef and it would call it.  By
> saying that something is a "smart match" target, rather than something more
> specific, you can make your code very flexible without writing a lot of
> polymorphism on your own.

...is really cool!  I can't wait to play with it. :-)


More information about the ABE-pm mailing list