Add separate hint values for keys/values

[perl/modules/autovivification.git] / lib / autovivification.pm

diff --git a/lib/autovivification.pm b/lib/autovivification.pm
index 8b1e1524eef5d1ad2c6cf58a2b01774713d99f3c..30974eaee73a1b943cb15dd2623ed58e5a851859 100644 (file)
--- a/lib/autovivification.pm
+++ b/lib/autovivification.pm
@@ -144,7 +144,7 @@ When C<@opts> is empty, it defaults to C<< qw<fetch exists delete> >>.
 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,