init() -> _init()

diff --git a/Changes b/Changes
index 5f9af52..c398305 100644 (file)
--- a/Changes
+++ b/Changes
@@ -4,6 +4,8 @@ Revision history for DBM::Deep.
     - Reorganization of distribution
     - Migration to Module::Build with EU::MM backwards compatibility
     - Test coverage improved to ??%
+    - The following methods have been renamed to reflect their private nature:
+        - init() is now _init()
 
 0.96  Oct 14 09:55:00 2005 Pacific
     - Fixed build (OS X hidden files killed it)

diff --git a/lib/DBM/Deep.pm b/lib/DBM/Deep.pm
index 8a86fd6..f814060 100644 (file)
--- a/lib/DBM/Deep.pm
+++ b/lib/DBM/Deep.pm
@@ -30,6 +30,7 @@ package DBM::Deep;
 ##
 
 use strict;
+
 use FileHandle;
 use Fcntl qw/:flock/;
 use Digest::MD5 ();
@@ -129,7 +130,7 @@ sub new {
 
 {
     my @outer_params = qw( type base_offset );
-    sub init {
+    sub _init {
         ##
         # Setup $self and bless into this class.
         ##
@@ -195,7 +196,7 @@ sub TIEHASH {
     elsif (ref($_[0])) { $args = $_[0]; }
     else { $args = { file => shift }; }
 
-    return $class->init($args);
+    return $class->_init($args);
 }
 
 sub TIEARRAY {
@@ -209,7 +210,7 @@ if (scalar(@_) > 1) { $args = {@_}; }
        elsif (ref($_[0])) { $args = $_[0]; }
        else { $args = { file => shift }; }
        
-       return $class->init($args);
+       return $class->_init($args);
 }
 
 sub DESTROY {