1 |
#!/usr/bin/env perl |
2 |
|
3 |
use strict; |
4 |
use warnings; |
5 |
|
6 |
use Catalyst::ScriptRunner; |
7 |
Catalyst::ScriptRunner->run('CatDap', 'Create'); |
8 |
|
9 |
1; |
10 |
|
11 |
=head1 NAME |
12 |
|
13 |
catdap_create.pl - Create a new Catalyst Component |
14 |
|
15 |
=head1 SYNOPSIS |
16 |
|
17 |
catdap_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 |
catdap_create.pl controller My::Controller |
26 |
catdap_create.pl -mechanize controller My::Controller |
27 |
catdap_create.pl view My::View |
28 |
catdap_create.pl view MyView TT |
29 |
catdap_create.pl view TT TT |
30 |
catdap_create.pl model My::Model |
31 |
catdap_create.pl model SomeDB DBIC::Schema MyApp::Schema create=dynamic\ |
32 |
dbi:SQLite:/tmp/my.db |
33 |
catdap_create.pl model AnotherDB DBIC::Schema MyApp::Schema create=static\ |
34 |
dbi:Pg:dbname=foo root 4321 |
35 |
|
36 |
See also: |
37 |
perldoc Catalyst::Manual |
38 |
perldoc Catalyst::Manual::Intro |
39 |
|
40 |
=head1 DESCRIPTION |
41 |
|
42 |
Create a new Catalyst Component. |
43 |
|
44 |
Existing component files are not overwritten. If any of the component files |
45 |
to be created already exist the file will be written with a '.new' suffix. |
46 |
This behavior can be suppressed with the C<-force> option. |
47 |
|
48 |
=head1 AUTHORS |
49 |
|
50 |
Catalyst Contributors, see Catalyst.pm |
51 |
|
52 |
=head1 COPYRIGHT |
53 |
|
54 |
This library is free software. You can redistribute it and/or modify |
55 |
it under the same terms as Perl itself. |
56 |
|
57 |
=cut |