[Catalyst-commits] r9306 - branches/Catalyst-Model-File/moosetastic/lib/Catalyst/Model

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-02-14 23:09:02 +0000 (Sat, 14 Feb 2009)
New Revision: 9306

Modified:
   branches/Catalyst-Model-File/moosetastic/lib/Catalyst/Model/File.pm
Log:
This is working code with 5.80, honest guv

Modified: branches/Catalyst-Model-File/moosetastic/lib/Catalyst/Model/File.pm
===================================================================
--- branches/Catalyst-Model-File/moosetastic/lib/Catalyst/Model/File.pm	2009-02-14 23:00:33 UTC (rev 9305)
+++ branches/Catalyst-Model-File/moosetastic/lib/Catalyst/Model/File.pm	2009-02-14 23:09:02 UTC (rev 9306)
@@ -43,7 +43,7 @@
 has directory => ( is => 'rw', isa => Dir, required => '1', coerce => 1, default => sub { Path::Class::dir('/') });
 has _dir => ( is => 'rw', isa => Dir, required => 1, lazy => 1, default => sub { shift->root_dir });
 
-sub new {
+sub BUILD {
     my $self = shift;
     $self->root_dir->mkpath(0, $self->dir_create_mask);
 }