8 use Scope::Upper qw/unwind want_at :words/;
11 my @result = shift->();
13 unwind +(want_at($cx) ? @result : scalar @result) => $cx;
18 my @things = qw/a b c/;
19 return @things; # returns to try() and then outside zap()
21 print "NOT REACHED\n";
24 my @what = zap(); # @what contains @things
25 my $what = zap(); # @what contains @things
27 print "zap() returns @what in list context and $what in scalar context\n";