};
has application_name => (
- traits => ['NoGetopt'],
- isa => Str,
- is => 'ro',
+ traits => ['NoGetopt'],
+ isa => Str,
+ is => 'ro',
required => 1,
);
has help => (
- traits => ['Getopt'],
- isa => Bool,
- is => 'ro',
- documentation => q{Display this help and exit},
+ traits => ['Getopt'],
+ isa => Bool,
+ is => 'ro',
+ documentation => 'Display this help and exit',
+ cmd_aliases => ['?', 'h'],
);
sub _getopt_spec_exception {}
use Moose;
use namespace::autoclean;
- with 'Catalyst::Script::Role';
+ with 'Catalyst::ScriptRole';
- sub _application_args { ... }
+ sub _application_args { ... }
=head1 DESCRIPTION
it under the same terms as Perl itself.
=cut
-