From: rkinyon <rkinyon@50811bd7-b8ce-0310-adc1-d9db26280581>
Date: Wed, 15 Feb 2006 20:07:12 +0000 (+0000)
Subject: init() -> _init()
X-Git-Tag: 0-97~71
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8b957036878d42563d832f2ff5dcfa5b2d7a7d86;p=dbsrgits%2FDBM-Deep.git

init() -> _init()
---

diff --git a/Changes b/Changes
index 5f9af52..c398305 100644
--- 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
--- 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 {