| App::CLI::Command::Help(3) | User Contributed Perl Documentation | App::CLI::Command::Help(3) |
App::CLI::Command::Help
package MyApp::Help;
use base qw(App::CLI::Command::Help);
sub run {
my $self = shift;
# preprocess
$self->SUPER::run(@_); # App::CLI::Command::Help would output POD of each command
}
Your command class should be capitalized.
To add a help message, just add POD in the command class:
package YourApp::Command::Foo;
=head1 NAME
YourApp::Command::Foo - execute foo
=head1 DESCRIPTION
blah blah
=head1 USAGE
....
=cut
| 2017-11-05 | perl v5.30.2 |