[Catalyst-commits] r11311 - in Catalyst-Devel/1.00/branches/helper_refactor: . lib/Catalyst

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-09-05 15:15:48 +0000 (Sat, 05 Sep 2009)
New Revision: 11311

Modified:
   Catalyst-Devel/1.00/branches/helper_refactor/
   Catalyst-Devel/1.00/branches/helper_refactor/lib/Catalyst/Helper.pm
Log:
 r11318 at tomas-dorans-macbook-pro:  t0m | 2009-09-05 12:30:42 +0100
 Add Moose so we have a constructor and fix changes generation



Property changes on: Catalyst-Devel/1.00/branches/helper_refactor
___________________________________________________________________
Name: svk:merge
   - 4ad37cd2-5fec-0310-835f-b3785c72a374:/Catalyst-Devel/1.00/trunk:10253
4ad37cd2-5fec-0310-835f-b3785c72a374:/trunk/Catalyst-Devel:6899
4ad37cd2-5fec-0310-835f-b3785c72a374:/trunk/Catalyst-Helper:4258
6d45476b-5895-46b8-b13a-8b969fa34c98:/local/Catalyst-Devel-helper-refactor:11317
   + 4ad37cd2-5fec-0310-835f-b3785c72a374:/Catalyst-Devel/1.00/trunk:10253
4ad37cd2-5fec-0310-835f-b3785c72a374:/trunk/Catalyst-Devel:6899
4ad37cd2-5fec-0310-835f-b3785c72a374:/trunk/Catalyst-Helper:4258
6d45476b-5895-46b8-b13a-8b969fa34c98:/local/Catalyst-Devel-helper-refactor:11318

Modified: Catalyst-Devel/1.00/branches/helper_refactor/lib/Catalyst/Helper.pm
===================================================================
--- Catalyst-Devel/1.00/branches/helper_refactor/lib/Catalyst/Helper.pm	2009-09-05 15:15:44 UTC (rev 11310)
+++ Catalyst-Devel/1.00/branches/helper_refactor/lib/Catalyst/Helper.pm	2009-09-05 15:15:48 UTC (rev 11311)
@@ -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::Exception;
 use Path::Class qw/dir file/;
 use File::ShareDir qw/dist_dir/;
+use namespace::autoclean;
 
 my %cache;
 
@@ -387,7 +387,7 @@
     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 {