Initial updates
Brian Cassidy [Fri, 2 Jun 2006 00:40:21 +0000 (00:40 +0000)]
Changes
Makefile.PL
lib/Catalyst/Devel.pm [new file with mode: 0644]
lib/Catalyst/Helper.pm
t/01use.t

diff --git a/Changes b/Changes
index fec3ff8..eaedf1a 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,4 +1,4 @@
-This file documents the revision history for Perl extension Catalyst::Helper.
+This file documents the revision history for Perl extension Catalyst-Devel.
 
 1.00    2006-05-23
         - Initial release
index eb8fdd1..5fde146 100644 (file)
@@ -2,8 +2,8 @@ use inc::Module::Install 0.62;
 
 perl_version '5.8.1';
 
-name 'Catalyst::Helper';
-all_from 'lib/Catalyst/Helper.pm';
+name 'Catalyst-Devel';
+all_from 'lib/Catalyst/Devel.pm';
 
 requires 'perl'        => '5.8.1';
 requires 'Class::Accessor::Fast';
diff --git a/lib/Catalyst/Devel.pm b/lib/Catalyst/Devel.pm
new file mode 100644 (file)
index 0000000..4c3686a
--- /dev/null
@@ -0,0 +1,19 @@
+package Catalyst::Devel;\r
+\r
+use strict;\r
+use warnings;\r
+\r
+our VERSION = '1.00';\r
+\r
+=head1 NAME
+
+Catalyst::Devel - Catalyst Development Tools
+\r
+=head1 LICENSE
+
+This library is free software, you can redistribute it and/or modify
+it under the same terms as Perl itself.\r
+\r
+=cut\r
+\r
+1;
\ No newline at end of file
index 37bd5ea..75a9a37 100644 (file)
@@ -1,6 +1,7 @@
 package Catalyst::Helper;
 
 use strict;
+use warnings;
 use base 'Class::Accessor::Fast';
 use Config;
 use File::Spec;
@@ -545,6 +546,8 @@ package [% name %];
 use strict;
 use warnings;
 
+use Catalyst::Runtime '5.70';
+
 #
 # Set flags and add plugins for the application
 #
@@ -732,6 +735,7 @@ __cgi__
 BEGIN { $ENV{CATALYST_ENGINE} ||= 'CGI' }
 
 use strict;
+use warnings;
 use FindBin;
 use lib "$FindBin::Bin/../lib";
 use [% name %];
@@ -770,6 +774,7 @@ __fastcgi__
 BEGIN { $ENV{CATALYST_ENGINE} ||= 'FastCGI' }
 
 use strict;
+use warnings;
 use Getopt::Long;
 use Pod::Usage;
 use FindBin;
@@ -850,6 +855,7 @@ BEGIN {
 }  
 
 use strict;
+use warnings;
 use Getopt::Long;
 use Pod::Usage;
 use FindBin;
@@ -956,6 +962,7 @@ __test__
 [% startperl %]
 
 use strict;
+use warnings;
 use Getopt::Long;
 use Pod::Usage;
 use FindBin;
@@ -1011,6 +1018,7 @@ __create__
 [% startperl %]
 
 use strict;
+use warnings;
 use Getopt::Long;
 use Pod::Usage;
 use Catalyst::Helper;
index 3688343..1489ca0 100644 (file)
--- a/t/01use.t
+++ b/t/01use.t
@@ -1,3 +1,4 @@
 use Test::More tests => 1;
 
 use_ok('Catalyst::Helper');
+use_ok('Catalyst::Devel');