[Moose-commits] r7421 - File-Stat-Moose/trunk/lib/File/Stat
dexter at code2.0beta.co.uk
dexter at code2.0beta.co.uk
Thu Jan 29 18:36:43 GMT 2009
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;
More information about the Moose-commits
mailing list