X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FScope%2FUpper.pm;h=f4e276daa3d00a4890aa37681cf30052b3cdefc8;hb=f0cfe9b5c3139bdfb9110efd9b56c180f9bc8cc4;hp=6128a8f10dd0fb906ca2663fa89215acffbd584b;hpb=ded0c62307dd417bbd7390457692310aca67ea93;p=perl%2Fmodules%2FScope-Upper.git diff --git a/lib/Scope/Upper.pm b/lib/Scope/Upper.pm index 6128a8f..f4e276d 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.01 +Version 0.02 =cut our $VERSION; BEGIN { - $VERSION = '0.01'; + $VERSION = '0.02'; } =head1 SYNOPSIS @@ -130,6 +130,31 @@ our %EXPORT_TAGS = ( our @EXPORT_OK = map { @$_ } values %EXPORT_TAGS; $EXPORT_TAGS{'all'} = [ @EXPORT_OK ]; +=head1 CAVEATS + +Be careful that local variables are restored in the reverse order in which they were localized. +Consider those examples: + + local $x = 0; + { + reap sub { print $x } => 0; + local $x = 1; + ... + } + # prints '0' + ... + { + local $x = 1; + reap sub { $x = 2 } => 0; + ... + } + # $x is 0 + +The first case is "solved" by moving the C before the C, and the second by using L instead of L. + +L, L and L effects can't cross C blocks, hence calling those functions in C is deemed to be useless. +This is an hopeless case because C blocks are executed once while localizing constructs should do their job at each run. + =head1 DEPENDENCIES L (standard since perl 5.006). @@ -154,6 +179,8 @@ You can find documentation for this module with the perldoc command. perldoc Scope::Upper +Tests code coverage report is available at L. + =head1 ACKNOWLEDGEMENTS Inspired by Ricardo Signes.