[Bps-public-commit] r16716 - in Prophet/branches/init-and-clone: .

[sartak at bestpractical.com]

Author: sartak
Date: Thu Nov  6 12:07:03 2008
New Revision: 16716

Modified:
   Prophet/branches/init-and-clone/   (props changed)
   Prophet/branches/init-and-clone/lib/Prophet/DatabaseSetting.pm

Log:
 r75127 at onn:  sartak | 2008-11-06 12:05:45 -0500
 Factor the initialize method back out, other methods use it


Modified: Prophet/branches/init-and-clone/lib/Prophet/DatabaseSetting.pm
==============================================================================
--- Prophet/branches/init-and-clone/lib/Prophet/DatabaseSetting.pm	(original)
+++ Prophet/branches/init-and-clone/lib/Prophet/DatabaseSetting.pm	Thu Nov  6 12:07:03 2008
@@ -23,10 +23,16 @@
 sub BUILD {
     my $self = shift;
 
-    $self->set($self->default)
+    $self->initialize
         unless ($self->handle->record_exists(uuid => $self->uuid, type => $self->type) );
 }
 
+sub initialize {
+    my $self = shift;
+
+    $self->set($self->default);
+}
+
 sub set {
     my $self = shift;
     my $entry;