[Moose-commits] r7421 - File-Stat-Moose/trunk/lib/File/Stat

[dexter at code2.0beta.co.uk]

Author: dexter
Date: 2009-01-29 10:36:43 -0800 (Thu, 29 Jan 2009)
New Revision: 7421

Modified:
   File-Stat-Moose/trunk/lib/File/Stat/Moose.pm
Log:
* BUILD calls _init_stat method.

Modified: File-Stat-Moose/trunk/lib/File/Stat/Moose.pm
===================================================================
--- File-Stat-Moose/trunk/lib/File/Stat/Moose.pm	2009-01-29 18:20:40 UTC (rev 7420)
+++ File-Stat-Moose/trunk/lib/File/Stat/Moose.pm	2009-01-29 18:36:43 UTC (rev 7421)
@@ -166,19 +166,30 @@
 ## no critic (ProhibitBuiltinHomonyms)
 ## no critic (RequireArgUnpacking)
 
-# Constructor calls stat method if necessary
+# Object initialization
 sub BUILD {
     my ($self, $params) = @_;
 
     assert_not_null($self->file) if ASSERT;
 
     # Update stat info
-    $self->stat;
+    $self->_init_stat;
 
     return TRUE;
 };
 
 
+# Call stat method
+sub _init_stat {
+    my ($self) = @_;
+
+    assert_true(ref $self) if ASSERT;
+    assert_not_null($self->file) if ASSERT;
+
+    return $self->stat;    
+};
+
+
 # Call stat or lstat method
 sub stat {
     my $self = shift;