Beefy Boxes and Bandwidth Generously Provided by pair Networks Bob
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

moritz's scratchpad

by moritz (Cardinal)
on Aug 15, 2007 at 18:07 UTC ( #632816=scratchpad: print w/ replies, xml ) Need Help??

Allowing a callback to return more than one level

I want to write some kind of text-only menu system, and that defines callbacks which are called for specific input.

Now the default behavior is to simply ignore the return value (trust me, it makes sense in my $work context), and exit the menu when the input is empty. However I want to give some callbacks the possibility to exit the menu too.

How? A normal return() doesn't accomplish that, so here is my hack:

use strict; use warnings; use 5.010; my $return_args; sub RETURN { $return_args = [@_]; no warnings 'exiting'; last 'UNIQUELABEL'; } sub menu { UNIQUELABEL: for (@_) { $_->(); } return @{$return_args} if $return_args; }; say menu sub { say 'go on' }, sub { RETURN 'ended' }, sub { 'never called' },
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (9)
As of 2013-05-23 02:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best material for plates (tableware) is:









    Results (473 votes), past polls