Aliases became calls to methods for subclassability

diff --git a/lib/DBM/Deep/Array.pm b/lib/DBM/Deep/Array.pm
index 7cb0b5b..a281395 100644 (file)
--- a/lib/DBM/Deep/Array.pm
+++ b/lib/DBM/Deep/Array.pm
@@ -376,12 +376,12 @@ sub SPLICE {
 ##
 # Public method aliases
 ##
-*length = *FETCHSIZE;
-*pop = *POP;
-*push = *PUSH;
-*shift = *SHIFT;
-*unshift = *UNSHIFT;
-*splice = *SPLICE;
+sub length { (CORE::shift)->FETCHSIZE(@_) }
+sub pop { (CORE::shift)->POP(@_) }
+sub push { (CORE::shift)->PUSH(@_) }
+sub shift { (CORE::shift)->SHIFT(@_) }
+sub unshift { (CORE::shift)->UNSHIFT(@_) }
+sub splice { (CORE::shift)->SPLICE(@_) }
 
 1;
 __END__

diff --git a/lib/DBM/Deep/Hash.pm b/lib/DBM/Deep/Hash.pm
index 8ab84f2..ac6b7cd 100644 (file)
--- a/lib/DBM/Deep/Hash.pm
+++ b/lib/DBM/Deep/Hash.pm
@@ -106,8 +106,8 @@ sub NEXTKEY {
 ##
 # Public method aliases
 ##
-*first_key = *FIRSTKEY;
-*next_key = *NEXTKEY;
+sub first_key { (CORE::shift)->FIRSTKEY(@_) }
+sub next_key { (CORE::shift)->NEXTKEY(@_) }
 
 1;
 __END__