lib/Catalyst/Script/Create.pm

   1 package Catalyst::Script::Create;
   2 use Moose;
   3 use MooseX::Types::Moose qw/Bool/;
   4 use namespace::autoclean;
   5
   6 with 'Catalyst::ScriptRole';
   7
   8 __PACKAGE__->meta->get_attribute('help')->cmd_aliases('h');
   9
  10 has force => (
  11     traits => [qw(Getopt)],
  12     cmd_aliases => 'nonew',
  13     isa => Bool,
  14     is => 'ro',
  15     documentation => 'Force new scripts',
  16 );
  17
  18 has debug => (
  19     traits => [qw(Getopt)],
  20     cmd_aliases => 'd',
  21     isa => Bool,
  22     is => 'ro',
  23     documentation => 'Force debug mode',
  24 );
  25
  26 has mechanize => (
  27     traits => [qw(Getopt)],
  28     cmd_aliases => 'mech',
  29     isa => Bool,
  30     is => 'ro',
  31     documentation => 'use WWW::Mechanize',
  32 );
  33
  34 has helper_class => ( isa => 'Str', is => 'ro', default => 'Catalyst::Helper' );
  35
  36 sub run {
  37     my ($self) = @_;
  38
  39     $self->_exit_with_usage if !$ARGV[0];
  40
  41     my $helper_class = $self->helper_class;
  42     Class::MOP::load_class($helper_class);
  43     my $helper = $helper_class->new( { '.newfiles' => !$self->force, mech => $self->mechanize } );
  44
  45     $self->_exit_with_usage unless $helper->mk_component( $self->application_name, @ARGV );
  46
  47 }
  48
  49 __PACKAGE__->meta->make_immutable;
  50
  51 =head1 NAME
  52
  53 Catalyst::Script::Create - Create a new Catalyst Component
  54
  55 =head1 SYNOPSIS
  56
  57  myapp_create.pl [options] model|view|controller name [helper] [options]
  58
  59  Options:
  60    -force        don't create a .new file where a file to be created exists
  61    -mechanize    use Test::WWW::Mechanize::Catalyst for tests if available
  62    -help         display this help and exits
  63
  64  Examples:
  65    myapp_create.pl controller My::Controller
  66    myapp_create.pl controller My::Controller BindLex
  67    myapp_create.pl -mechanize controller My::Controller
  68    myapp_create.pl view My::View
  69    myapp_create.pl view MyView TT
  70    myapp_create.pl view TT TT
  71    myapp_create.pl model My::Model
  72    myapp_create.pl model SomeDB DBIC::Schema MyApp::Schema create=dynamic\
  73    dbi:SQLite:/tmp/my.db
  74    myapp_create.pl model AnotherDB DBIC::Schema MyApp::Schema create=static\
  75    dbi:Pg:dbname=foo root 4321
  76
  77  See also:
  78    perldoc Catalyst::Manual
  79    perldoc Catalyst::Manual::Intro
  80
  81 =head1 DESCRIPTION
  82
  83 Create a new Catalyst Component.
  84
  85 Existing component files are not overwritten.  If any of the component files
  86 to be created already exist the file will be written with a '.new' suffix.
  87 This behavior can be suppressed with the C<-force> option.
  88
  89 =head1 AUTHORS
  90
  91 Catalyst Contributors, see Catalyst.pm
  92
  93 =head1 COPYRIGHT
  94
  95 This library is free software, you can redistribute it and/or modify
  96 it under the same terms as Perl itself.
  97
  98 =cut
  99