]> git.vpit.fr Git - perl/modules/autovivification.git/blobdiff - lib/autovivification.pm
Bump copyright year
[perl/modules/autovivification.git] / lib / autovivification.pm
index 77cdb7bda108b13ed1213a95f1153ae14704f007..48f90029a4b70dd07da73a9cf75cdfd9f83eccee 100644 (file)
@@ -11,13 +11,13 @@ autovivification - Lexically disable autovivification.
 
 =head1 VERSION
 
-Version 0.06
+Version 0.10
 
 =cut
 
 our $VERSION;
 BEGIN {
- $VERSION = '0.06';
+ $VERSION = '0.10';
 }
 
 =head1 SYNOPSIS
@@ -53,7 +53,12 @@ BEGIN {
 
 =head1 METHODS
 
-=head2 C<unimport @opts>
+=head2 C<unimport>
+
+    no autovivification; # defaults to qw<fetch exists delete>
+    no autovivification qw<fetch store exists delete>;
+    no autovivification 'warn';
+    no autovivification 'strict';
 
 Magically called when C<no autovivification @opts> is encountered.
 Enables the features given in C<@opts>, which can be :
@@ -113,7 +118,7 @@ Turns off autovivification for lvalue dereferencing expressions, such as :
     function($arrayref->[$idx])
     function($hashref->{$key})
 
-An exception is thrown if vivification is needed to store the value, which means that effectively you can only assign to levels that are already defined
+An exception is thrown if vivification is needed to store the value, which means that effectively you can only assign to levels that are already defined.
 In the example, this would require C<$arrayref> (resp. C<$hashref>) to already be an array (resp. hash) reference.
 
 =item *
@@ -132,7 +137,7 @@ Throws an exception when an autovivification is avoided.
 
 Each call to C<unimport> adds the specified features to the ones already in use in the current lexical scope.
 
-When C<@opts> is empty, it defaults to C<qw/fetch exists delete/>.
+When C<@opts> is empty, it defaults to C<< qw<fetch exists delete> >>.
 
 =cut
 
@@ -148,14 +153,17 @@ my %bits = (
 sub unimport {
  shift;
  my $hint = _detag($^H{+(__PACKAGE__)}) || 0;
- @_ = qw/fetch exists delete/ unless @_;
+ @_ = qw<fetch exists delete> unless @_;
  $hint |= $bits{$_} for grep exists $bits{$_}, @_;
  $^H |= 0x00020000;
  $^H{+(__PACKAGE__)} = _tag($hint);
  ();
 }
 
-=head2 C<import @opts>
+=head2 C<import>
+
+    use autovivification; # default Perl behaviour
+    use autovivification qw<fetch store exists delete>;
 
 Magically called when C<use autovivification @opts> is encountered.
 Disables the features given in C<@opts>, which can be the same as for L</unimport>.
@@ -188,7 +196,7 @@ This constant only has a meaning with your perl is threaded ; otherwise, it'll a
 =head2 C<A_FORKSAFE>
 
 True iff this module could have been built with fork-safety features enabled.
-This will always be true except on Windows where it's false for perl 5.10.0 and below .
+This will always be true except on Windows where it's false for perl 5.10.0 and below.
 
 =head1 CAVEATS
 
@@ -234,7 +242,7 @@ Matt S. Trout asked for it.
 
 =head1 COPYRIGHT & LICENSE
 
-Copyright 2009,2010 Vincent Pit, all rights reserved.
+Copyright 2009,2010,2011,2012 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.