Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re^2: converting from switch to given-when

by tobyink (Abbot)
on Sep 25, 2012 at 06:26 UTC ( #995495=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    sub is_arrayref (_) { ref(shift) eq 'ARRAY' }
    
    ...
      when ([wxID_NO])     { $self->Wx::LogStatus('You pressed: "No"'    )
    + }
      when ([wxID_CANCEL]) { $self->Wx::LogStatus('You pressed: "Cancel"')
    + }
    }
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://995495]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (6)
As of 2014-12-23 05:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (135 votes), past polls