This is 0.03

diff --git a/Changes b/Changes
index e872d83930b2eb8f6838f088a147a6e65aa18125..cfa7084c9d09631e816bb6192c05673f4a1e6c4d 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,11 @@
 Revision history for Scope-Upper
 
 Revision history for Scope-Upper
 

+0.03    2009-01-04 15:55 UTC
+        + Add : localize_delete(), that localize array/hash elements in upper
+                scopes.
+        + Fix : Segfault when localizing array elements with an invalid negative
+                index.
+

 0.02    2008-12-28 18:40 UTC
         + Doc : Clarifications and improvements.
         + Fix : Missing compatibility macros.
 0.02    2008-12-28 18:40 UTC
         + Doc : Clarifications and improvements.
         + Fix : Missing compatibility macros.

diff --git a/META.yml b/META.yml
index 12989c56a8f8b84bfa3ac701f615afdefbfee54f..79953f5aba99d69af5d5eeb8e23cb53e810d4aa8 100644 (file)
--- a/META.yml
+++ b/META.yml
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Scope-Upper
 --- #YAML:1.0
 name:               Scope-Upper

-version:            0.02
+version:            0.03

 abstract:           Act on upper scopes.
 author:
     - Vincent Pit <perl@profvince.com>
 abstract:           Act on upper scopes.
 author:
     - Vincent Pit <perl@profvince.com>

diff --git a/README b/README
index 5e2fb7e35e9345a478ab473f5744fd83ab65b279..499ba67abc7184f6ca249508eb9283ba139fa0bc 100644 (file)
--- a/README
+++ b/README
@@ -2,12 +2,12 @@ NAME
     Scope::Upper - Act on upper scopes.
 
 VERSION
     Scope::Upper - Act on upper scopes.
 
 VERSION

-    Version 0.02
+    Version 0.03

 
 SYNOPSIS
         package X;
 
 
 SYNOPSIS
         package X;
 

-        use Scope::Upper qw/reap localize localize_elem/;
+        use Scope::Upper qw/reap localize localize_elem localize_delete/;

 
         sub desc { shift->{desc} }
 
 
         sub desc { shift->{desc} }
 


@@ -28,13 +28,15 @@ SYNOPSIS
           my $x = do { no strict 'refs'; ${$pkg.'::x'} }; # Get the $x in the scope
           CORE::warn($x->desc . ': ' . join('', @_));
          } => 1;
           my $x = do { no strict 'refs'; ${$pkg.'::x'} }; # Get the $x in the scope
           CORE::warn($x->desc . ': ' . join('', @_));
          } => 1;

+
+         localize_delete '@ARGV', $#ARGV => 1; # delete last @ARGV element

         }
 
         package Y;
 
         {
          X::set_tag('pie');
         }
 
         package Y;
 
         {
          X::set_tag('pie');

-         # $x is now a X object
+         # $x is now a X object, and @ARGV has one element less

          warn 'what'; # warns "pie: what at ..."
          ...
         } # "pie: done" is printed
          warn 'what'; # warns "pie: what at ..."
          ...
         } # "pie: done" is printed


@@ -42,7 +44,8 @@ SYNOPSIS
 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
 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

-    end, or localize variables and array/hash values in higher contexts.
+    end, or localize variables, array/hash values or deletions of elements
+    in higher contexts.

 
 FUNCTIONS
   "reap $callback, $level"
 
 FUNCTIONS
   "reap $callback, $level"


@@ -84,13 +87,28 @@ FUNCTIONS
     is ; otherwise it's inferred from the sigil. $key is either an array
     index or a hash key, depending of which kind of variable you localize.
 
     is ; otherwise it's inferred from the sigil. $key is either an array
     index or a hash key, depending of which kind of variable you localize.
 

+  "localize_delete $what, $key, $level"
+    Similiar to "localize", but for deleting variables or array/hash
+    elements. $what can be:
+
+    *   A glob, in which case $key is ignored and the call is equivalent to
+        "local *x".
+
+    *   A string beginning with '@' or '%', for which the call is equivalent
+        to respectiveley "local $a[$key]; delete $a[$key]" and "local
+        $h{$key}; delete $h{$key}".
+
+    *   A string beginning with '&', which more or less does "undef &func"
+        in the upper scope. It's actually more powerful, as &func won't even
+        "exists" anymore. $key is ignored.
+

   "TOPLEVEL"
     Returns the level that currently represents the highest scope.
 
 EXPORT
   "TOPLEVEL"
     Returns the level that currently represents the highest scope.
 
 EXPORT

-    The functions "reap", "localize", "localize_elem" and "TOPLEVEL" are
-    only exported on request, either individually or by the tags ':funcs'
-    and ':all'.
+    The functions "reap", "localize", "localize_elem", "localize_delete" and
+    "TOPLEVEL" are only exported on request, either individually or by the
+    tags ':funcs' and ':all'.

 
 CAVEATS
     Be careful that local variables are restored in the reverse order in
 
 CAVEATS
     Be careful that local variables are restored in the reverse order in


@@ -149,7 +167,7 @@ ACKNOWLEDGEMENTS
     Inspired by Ricardo Signes.
 
 COPYRIGHT & LICENSE
     Inspired by Ricardo Signes.
 
 COPYRIGHT & LICENSE

-    Copyright 2008 Vincent Pit, all rights reserved.
+    Copyright 2008-2009 Vincent Pit, all rights reserved.

 
     This program is free software; you can redistribute it and/or modify it
     under the same terms as Perl itself.
 
     This program is free software; you can redistribute it and/or modify it
     under the same terms as Perl itself.

diff --git a/lib/Scope/Upper.pm b/lib/Scope/Upper.pm
index e5f22c97671028619a9e51d619476a295f77e88d..345176add9a801ae293ccefe2a182672cf3ca9b2 100644 (file)
--- a/lib/Scope/Upper.pm
+++ b/lib/Scope/Upper.pm
@@ -9,13 +9,13 @@ Scope::Upper - Act on upper scopes.
 
 =head1 VERSION
 
 
 =head1 VERSION
 

-Version 0.02
+Version 0.03

 
 =cut
 
 our $VERSION;
 BEGIN {
 
 =cut
 
 our $VERSION;
 BEGIN {

- $VERSION = '0.02';
+ $VERSION = '0.03';

 }
 
 =head1 SYNOPSIS
 }
 
 =head1 SYNOPSIS