Add Moose so we have a constructor and fix changes generation
Tomas Doran [Sat, 5 Sep 2009 15:15:48 +0000 (15:15 +0000)]
lib/Catalyst/Helper.pm

index e584067..46bd4ec 100644 (file)
@@ -1,6 +1,5 @@
 package Catalyst::Helper;
-use strict;
-use warnings;
+use Moose;
 use Config;
 use File::Spec;
 use File::Path;
@@ -13,6 +12,7 @@ use Catalyst::Utils;
 use Catalyst::Exception;
 use Path::Class qw/dir file/;
 use File::ShareDir qw/dist_dir/;
+use namespace::autoclean;
 
 my %cache;
 
@@ -387,7 +387,7 @@ sub _mk_changes {
     my $self = shift;
     my $dir  = $self->{dir};
     my $time = strftime('%Y-%m-%d %H:%M:%S', localtime time);
-    $self->render_sharedir_file( 'Changes.tt', file($dir, "Changes", { time => $time } ) );
+    $self->render_sharedir_file( 'Changes.tt', file($dir, "Changes"), { time => $time } );
 }
 
 sub _mk_apptest {