1[% startperl %] 2 3use strict; 4use warnings; 5 6use Catalyst::ScriptRunner; 7Catalyst::ScriptRunner->run('[% name %]', 'Create'); 8 91; 10 11=head1 NAME 12 13[% appprefix %]_create.pl - Create a new Catalyst Component 14 15=head1 SYNOPSIS 16 17[% appprefix %]_create.pl [options] model|view|controller name [helper] [options] 18 19 Options: 20 --force don't create a .new file where a file to be created exists 21 --mechanize use Test::WWW::Mechanize::Catalyst for tests if available 22 --help display this help and exits 23 24 Examples: 25 [% appprefix %]_create.pl controller My::Controller 26 [% appprefix %]_create.pl --mechanize controller My::Controller 27 [% appprefix %]_create.pl view My::View 28 [% appprefix %]_create.pl view HTML TT 29 [% appprefix %]_create.pl model My::Model 30 [% appprefix %]_create.pl model SomeDB DBIC::Schema MyApp::Schema create=dynamic\ 31 dbi:SQLite:/tmp/my.db 32 [% appprefix %]_create.pl model AnotherDB DBIC::Schema MyApp::Schema create=static\ 33 [Loader opts like db_schema, naming] dbi:Pg:dbname=foo root 4321 34 [connect_info opts like quote_char, name_sep] 35 36 See also: 37 perldoc Catalyst::Manual 38 perldoc Catalyst::Manual::Intro 39 perldoc Catalyst::Helper::Model::DBIC::Schema 40 perldoc Catalyst::Model::DBIC::Schema 41 perldoc Catalyst::View::TT 42 43=head1 DESCRIPTION 44 45Create a new Catalyst Component. 46 47Existing component files are not overwritten. If any of the component files 48to be created already exist the file will be written with a '.new' suffix. 49This behavior can be suppressed with the C<-force> option. 50 51=head1 AUTHORS 52 53Catalyst Contributors, see Catalyst.pm 54 55=head1 COPYRIGHT 56 57This library is free software. You can redistribute it and/or modify 58it under the same terms as Perl itself. 59 60=cut 61