check for relationship before collating
[scpubgit/stemmatology.git] / stemmaweb / script / stemmaweb_create.pl
1 #!/usr/bin/env perl
2
3 use strict;
4 use warnings;
5
6 use Catalyst::ScriptRunner;
7 Catalyst::ScriptRunner->run('stemmaweb', 'Create');
8
9 1;
10
11 =head1 NAME
12
13 stemmaweb_create.pl - Create a new Catalyst Component
14
15 =head1 SYNOPSIS
16
17 stemmaweb_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    stemmaweb_create.pl controller My::Controller
26    stemmaweb_create.pl --mechanize controller My::Controller
27    stemmaweb_create.pl view My::View
28    stemmaweb_create.pl view HTML TT
29    stemmaweb_create.pl model My::Model
30    stemmaweb_create.pl model SomeDB DBIC::Schema MyApp::Schema create=dynamic\
31    dbi:SQLite:/tmp/my.db
32    stemmaweb_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
45 Create a new Catalyst Component.
46
47 Existing component files are not overwritten.  If any of the component files
48 to be created already exist the file will be written with a '.new' suffix.
49 This behavior can be suppressed with the C<-force> option.
50
51 =head1 AUTHORS
52
53 Catalyst Contributors, see Catalyst.pm
54
55 =head1 COPYRIGHT
56
57 This library is free software. You can redistribute it and/or modify
58 it under the same terms as Perl itself.
59
60 =cut