]> git.vpit.fr Git - perl/modules/Scope-Upper.git/commitdiff
This module has caveats, so explain them
authorVincent Pit <vince@profvince.com>
Sat, 27 Dec 2008 14:41:31 +0000 (15:41 +0100)
committerVincent Pit <vince@profvince.com>
Sat, 27 Dec 2008 14:41:31 +0000 (15:41 +0100)
lib/Scope/Upper.pm

index 6128a8f10dd0fb906ca2663fa89215acffbd584b..1e5f75dbf63826e0def54c7e004fcb5ded560273 100644 (file)
@@ -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<local> before the C<reap>, and the second by using L</localize> instead of L</reap>.
+
+L</reap>, L</localize> and L</localize_elem> effects can't cross C<BEGIN> blocks, hence calling those functions in C<import> is deemed to be useless.
+This is an hopeless case because C<BEGIN> blocks are executed once while localizing constructs should do their job at each run.
+
 =head1 DEPENDENCIES
 
 L<XSLoader> (standard since perl 5.006).