X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FScript%2FCreate.pm;h=2ff4d5894baa66e1238fd6fdd7c9fe421bb6f71e;hb=2adf69c39c60d293463312707fd9312d110139db;hp=577fc4d3198da84b10c59f2c044473ec8c5be32d;hpb=2824ec8ddc74ffe46554fa224fed19cf459c7d35;p=catagits%2FCatalyst-Runtime.git

diff --git a/lib/Catalyst/Script/Create.pm b/lib/Catalyst/Script/Create.pm
index 577fc4d..2ff4d58 100644
--- a/lib/Catalyst/Script/Create.pm
+++ b/lib/Catalyst/Script/Create.pm
@@ -1,15 +1,17 @@
 package Catalyst::Script::Create;
 use Moose;
-use strict;
-use warnings;
 use Getopt::Long;
 use Pod::Usage;
 use Catalyst::Helper;
+use MooseX::Types::Moose qw/Str/;
+use namespace::autoclean;
 
-sub new_with_options { shift->new }
+has app => (isa => Str, is => 'ro', required => 1);
+
+sub new_with_options { shift->new(@_) }
 
 sub run {
-    my ($appname) = @_;
+    my ($self) = @_;
 my $force = 0;
 my $mech  = 0;
 my $help  = 0;
@@ -24,7 +26,7 @@ pod2usage(1) if ( $help || !$ARGV[0] );
 
 my $helper = Catalyst::Helper->new( { '.newfiles' => !$force, mech => $mech } );
 
-pod2usage(1) unless $helper->mk_component( $appname, @ARGV );
+pod2usage(1) unless $helper->mk_component( $self->app, @ARGV );
 
 }