1 package Catalyst::Script::Create;
3 use MooseX::Types::Moose qw/Bool/;
4 use namespace::autoclean;
6 with 'Catalyst::ScriptRole';
9 traits => [qw(Getopt)],
10 cmd_aliases => 'nonew',
13 documentation => 'Force new scripts',
17 traits => [qw(Getopt)],
21 documentation => 'Force debug mode',
25 traits => [qw(Getopt)],
26 cmd_aliases => 'mech',
29 documentation => 'use WWW::Mechanize',
32 has helper_class => ( isa => 'Str', is => 'ro', default => 'Catalyst::Helper' );
37 $self->_exit_with_usage if !$self->ARGV->[0];
39 my $helper_class = $self->helper_class;
40 Class::MOP::load_class($helper_class);
41 my $helper = $helper_class->new( { '.newfiles' => !$self->force, mech => $self->mechanize } );
43 $self->_exit_with_usage unless $helper->mk_component( $self->application_name, @ARGV );
47 __PACKAGE__->meta->make_immutable;
51 Catalyst::Script::Create - Create a new Catalyst Component
55 myapp_create.pl [options] model|view|controller name [helper] [options]
58 -force don't create a .new file where a file to be created exists
59 -mechanize use Test::WWW::Mechanize::Catalyst for tests if available
60 -help display this help and exits
63 myapp_create.pl controller My::Controller
64 myapp_create.pl controller My::Controller BindLex
65 myapp_create.pl -mechanize controller My::Controller
66 myapp_create.pl view My::View
67 myapp_create.pl view MyView TT
68 myapp_create.pl view TT TT
69 myapp_create.pl model My::Model
70 myapp_create.pl model SomeDB DBIC::Schema MyApp::Schema create=dynamic\
72 myapp_create.pl model AnotherDB DBIC::Schema MyApp::Schema create=static\
73 dbi:Pg:dbname=foo root 4321
76 perldoc Catalyst::Manual
77 perldoc Catalyst::Manual::Intro
81 Create a new Catalyst Component.
83 Existing component files are not overwritten. If any of the component files
84 to be created already exist the file will be written with a '.new' suffix.
85 This behavior can be suppressed with the C<-force> option.
89 Catalyst Contributors, see Catalyst.pm
93 This library is free software, you can redistribute it and/or modify
94 it under the same terms as Perl itself.