From: rkinyon <rkinyon@50811bd7-b8ce-0310-adc1-d9db26280581>
Date: Thu, 2 Mar 2006 01:23:48 +0000 (+0000)
Subject: Aliases became calls to methods for subclassability
X-Git-Tag: 0-99_01~92
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f75b719ee773050f0487a93f8bbae70dd92f861b;p=dbsrgits%2FDBM-Deep.git

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
--- 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
--- 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__