X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FScope%2FUpper.pm;h=66f225f8a3f60913f54734a1dd94b608bbeb6945;hb=371ac1f7b00e6de2149f97693fdcbbfe44388f43;hp=345176add9a801ae293ccefe2a182672cf3ca9b2;hpb=c8549c2d49ee305498c19318c51dc6540dba8b3f;p=perl%2Fmodules%2FScope-Upper.git diff --git a/lib/Scope/Upper.pm b/lib/Scope/Upper.pm index 345176a..66f225f 100644 --- a/lib/Scope/Upper.pm +++ b/lib/Scope/Upper.pm @@ -9,13 +9,13 @@ Scope::Upper - Act on upper scopes. =head1 VERSION -Version 0.03 +Version 0.04 =cut our $VERSION; BEGIN { - $VERSION = '0.03'; + $VERSION = '0.04'; } =head1 SYNOPSIS @@ -56,6 +56,26 @@ BEGIN { ... } # "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 + =head1 DESCRIPTION This module lets you defer actions that will take place when the control flow returns into an upper scope. @@ -136,13 +156,52 @@ C<$key> is ignored. =back -=head2 C +=head2 C + +Returns C<@values> I the context indicated by C<$level>, i.e. from the subroutine, eval or format just above C<$level>. +The upper level isn't coerced onto C<@values>, which is hence always evaluated in list context. + +=head2 C + +Like C, but for the subroutine/eval/format context just above C<$level>. + +=head1 WORDS + +=head2 C Returns the level that currently represents the highest scope. +=head2 C + +The current level - i.e. C<0>. + +=head2 C + +The level of the scope just above C<$from>. + +=head2 C + +The level of the scope just below C<$from>. + +=head2 C + +The level of the closest subroutine context above C<$from>. + +=head2 C + +The level of the closest eval context above C<$from>. + +If C<$from> is omitted in any of those functions, the current level is used as the reference level. + +=head2 C + +The level corresponding to the stack referenced by C. + =head1 EXPORT -The functions L, L, L, L and L are only exported on request, either individually or by the tags C<':funcs'> and C<':all'>. +The functions L, L, L, L, L and L are only exported on request, either individually or by the tags C<':funcs'> and C<':all'>. + +Same goes for the words L, L, L, L, L, L and L that are only exported on request, individually or by the tags C<':words'> and C<':all'>. =cut @@ -150,7 +209,8 @@ use base qw/Exporter/; our @EXPORT = (); our %EXPORT_TAGS = ( - funcs => [ qw/reap localize localize_elem localize_delete TOPLEVEL/ ], + funcs => [ qw/reap localize localize_elem localize_delete unwind want_at/ ], + words => [ qw/TOP HERE UP DOWN SUB EVAL CALLER/ ], ); our @EXPORT_OK = map { @$_ } values %EXPORT_TAGS; $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];