X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=README;h=c6d5711fc1c48803145c44c8e5cc143497a5efa0;hb=371ac1f7b00e6de2149f97693fdcbbfe44388f43;hp=499ba67abc7184f6ca249508eb9283ba139fa0bc;hpb=30704f4ee7a37bf404afe21f1303ab690ece4bca;p=perl%2Fmodules%2FScope-Upper.git diff --git a/README b/README index 499ba67..c6d5711 100644 --- a/README +++ b/README @@ -2,7 +2,7 @@ NAME Scope::Upper - Act on upper scopes. VERSION - Version 0.03 + Version 0.04 SYNOPSIS package X; @@ -41,6 +41,26 @@ SYNOPSIS ... } # "pie: done" is printed + package Z; + + use Scope::Upper qw/unwind want_at :words/; + + sub try (&) { + my @result = shift->(); + my $cx = SUB UP SUB; + unwind +(want_at($cx) ? @result : scalar @result) => $cx; + } + + ... + + sub zap { + try { + return @things; # returns to try() and then outside zap() + } + } + + my @what = zap(); # @what contains @things + DESCRIPTION This module lets you defer actions that will take place when the control flow returns into an upper scope. Currently, you can hook an upper scope @@ -102,13 +122,48 @@ FUNCTIONS in the upper scope. It's actually more powerful, as &func won't even "exists" anymore. $key is ignored. - "TOPLEVEL" + "unwind @values, $level" + Returns @values *from* the context indicated by $level, i.e. from the + subroutine, eval or format just above $level. The upper level isn't + coerced onto @values, which is hence always evaluated in list context. + + "want_at $level" + Like "wantarray", but for the subroutine/eval/format context just above + $level. + +WORDS + "TOP" Returns the level that currently represents the highest scope. + "HERE" + The current level - i.e. 0. + + "UP $from" + The level of the scope just above $from. + + "DOWN $from" + The level of the scope just below $from. + + "SUB $from" + The level of the closest subroutine context above $from. + + "EVAL $from" + The level of the closest eval context above $from. + + If $from is omitted in any of those functions, the current level is used + as the reference level. + + "CALLER $stack" + The level corresponding to the stack referenced by "caller $stack". + EXPORT - The functions "reap", "localize", "localize_elem", "localize_delete" and - "TOPLEVEL" are only exported on request, either individually or by the - tags ':funcs' and ':all'. + The functions "reap", "localize", "localize_elem", "localize_delete", + "unwind" and "want_at" are only exported on request, either individually + or by the tags ':funcs' and ':all'. + + Same goes for the words "TOP", "HERE", "UP", "DOWN", "SUB", "EVAL" and + "CALLER" that are only exported on request, individually or by the tags + ':words' and ':all'. CAVEATS Be careful that local variables are restored in the reverse order in