=head1 VERSION
-Version 0.16
+Version 0.18
=cut
our $VERSION;
BEGIN {
- $VERSION = '0.16';
+ $VERSION = '0.18';
}
=head1 SYNOPSIS
no autovivification; # defaults to qw<fetch exists delete>
no autovivification qw<fetch store exists delete>;
- no autovivification 'warn';
- no autovivification 'strict';
+ no autovivification warn => @categories;
+ no autovivification strict => @categories;
Magically called when C<no autovivification @opts> is encountered.
Enables the features given in C<@opts>, which can be :
C<'warn'>
-Emits a warning when an autovivification is avoided.
+Emits a warning when an autovivification is avoided for the categories specified in C<@opts>.
+
+Note that C<no autovivification 'warn'> currently does nothing by itself, in particular it does not make the default categories warn.
+This behaviour may change in a future version of this pragma.
=item *
C<'strict'>
-Throws an exception when an autovivification is avoided.
+Throws an exception when an autovivification is avoided for the categories specified in C<@opts>.
+
+Note that C<no autovivification 'strict'> currently does nothing by itself, in particular it does not make the default categories die.
+This behaviour may change in a future version of this pragma.
=back
my %bits = (
strict => A_HINT_STRICT,
warn => A_HINT_WARN,
- fetch => A_HINT_FETCH,
+ fetch => A_HINT_FETCH|A_HINT_KEYS|A_HINT_VALUES,
store => A_HINT_STORE,
exists => A_HINT_EXISTS,
delete => A_HINT_DELETE,
=head1 COPYRIGHT & LICENSE
-Copyright 2009,2010,2011,2012,2013,2014,2015 Vincent Pit, all rights reserved.
+Copyright 2009,2010,2011,2012,2013,2014,2015,2017 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.