[Catalyst-commits] r10868 - Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-07-12 17:15:09 +0000 (Sun, 12 Jul 2009)
New Revision: 10868

Modified:
   Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Create.pm
Log:
Too slow

Modified: Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Create.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Create.pm	2009-07-12 02:20:33 UTC (rev 10867)
+++ Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Create.pm	2009-07-12 17:15:09 UTC (rev 10868)
@@ -6,6 +6,10 @@
 use Pod::Usage;
 use Catalyst::Helper;
 
+sub new_with_options { shift->new }
+
+sub run {
+    my ($appname) = @_;
 my $force = 0;
 my $mech  = 0;
 my $help  = 0;
@@ -20,8 +24,10 @@
 
 my $helper = Catalyst::Helper->new( { '.newfiles' => !$force, mech => $mech } );
 
-pod2usage(1) unless $helper->mk_component( 'BoyosPlace', @ARGV );
+pod2usage(1) unless $helper->mk_component( $appname, @ARGV );
 
+}
+
 1;
 
 =head1 NAME