package Catalyst::Script::Create;
use Moose;
-use MooseX::Types::Moose qw/Bool Str/;
+use Class::Load 'load_class';
use namespace::autoclean;
with 'Catalyst::ScriptRole';
has force => (
traits => [qw(Getopt)],
cmd_aliases => 'nonew',
- isa => Bool,
+ isa => 'Bool',
is => 'ro',
documentation => 'Force new scripts',
);
has debug => (
traits => [qw(Getopt)],
cmd_aliases => 'd',
- isa => Bool,
+ isa => 'Bool',
is => 'ro',
documentation => 'Force debug mode',
);
has mechanize => (
traits => [qw(Getopt)],
cmd_aliases => 'mech',
- isa => Bool,
+ isa => 'Bool',
is => 'ro',
documentation => 'use WWW::Mechanize',
);
has helper_class => (
- isa => Str,
+ isa => 'Str',
is => 'ro',
builder => '_build_helper_class',
);
sub run {
my ($self) = @_;
- $self->_getopt_full_usage if !$self->ARGV->[0];
+ $self->print_usage_text if !$self->ARGV->[0];
my $helper_class = $self->helper_class;
- Class::MOP::load_class($helper_class);
+ load_class($helper_class);
my $helper = $helper_class->new( { '.newfiles' => !$self->force, mech => $self->mechanize } );
- $self->_getopt_full_usage unless $helper->mk_component( $self->application_name, @{$self->extra_argv} );
+ $self->print_usage_text unless $helper->mk_component( $self->application_name, @{$self->extra_argv} );
}
__PACKAGE__->meta->make_immutable;
+1;
=head1 NAME
to be created already exist the file will be written with a '.new' suffix.
This behavior can be suppressed with the C<--force> option.
+=head1 SEE ALSO
+
+L<Catalyst::ScriptRunner>
+
=head1 AUTHORS
Catalyst Contributors, see Catalyst.pm