Reference

App::CLI::Command::Help(3pm)

NAME

App::CLI::Command::Help

SYNOPSIS

    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
    }

DESCRIPTION

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

History