Re: Binding keys to events?

[HuckinFappy]

Use IO::Prompt

( my $_prompt = <<END_OF_PROMPT ) =~ s/^\s+?\|//gm; 
   | You have encountered a Gru, what would you like to do?
   |    Do you want to:
   |       [1] Run away
   |       [2] Fight
   |       [3] Try to talk your way out of this
   |       [4] Apply salt to your leg and let him eat you
   |       [q] Quit
   |          Please choose [ 1-4,Q ]: 
END_OF_PROMPT

my $_response = prompt $_prompt, -one_char, 
                -require => 
                   { "Must be one of 1-4 or 'Q'\n$_prompt" =>
                                 qr/[1-4q]/smix };