Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re: Switch/case as a jump table with C-style fall-through

by dragonchild (Archbishop)
on May 12, 2005 at 13:18 UTC ( #456376=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    switch (i) {
        0,1: foo();
        2: bar(); break;
        3: baz(); break;
    };
    
  2. or download this
    my $switch = Switch->new(
        [ '5', sub {} ], # Matches '005'
    ...
        [ sub { $foo->bar( @_ ) }, sub {} ] # coderef
        [ 1 .. 3, 8 .. 20, sub {} ] # Multiple cases
    );
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://456376]
help
Chatterbox?
[markong]: Dear monks, I can't recall: I remember some module to log all LWP::UA and Mechanize req/res ... any hints?
[choroba]: Discipulus Humour? I tried to participate: Re: why isn't cpan like npm?
[markong]: I'd like to inspect all the request/response related headers, instead of going with perldebug

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (9)
As of 2018-04-20 16:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?