From: Tomas Doran <bobtfish@bobtfish.net>
Date: Sun, 12 Jul 2009 17:15:09 +0000 (+0000)
Subject: Too slow
X-Git-Tag: 5.80014_02~92
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=2824ec8ddc74ffe46554fa224fed19cf459c7d35

Too slow
---

diff --git a/lib/Catalyst/Script/Create.pm b/lib/Catalyst/Script/Create.pm
index f2561ce..577fc4d 100644
--- a/lib/Catalyst/Script/Create.pm
+++ b/lib/Catalyst/Script/Create.pm
@@ -6,6 +6,10 @@ use Getopt::Long;
 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,7 +24,9 @@ pod2usage(1) if ( $help || !$ARGV[0] );
 
 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;