1App::CLI::Command::HelpU(s3e)r Contributed Perl DocumentaAtpipo:n:CLI::Command::Help(3)
2
3
4
6 App::CLI::Command::Help
7
9 package MyApp::Help;
10 use base qw(App::CLI::Command::Help);
11
12 sub run {
13 my $self = shift;
14 # preprocess
15 $self->SUPER::run(@_); # App::CLI::Command::Help would output POD of each command
16 }
17
19 Your command class should be capitalized.
20
21 To add a help message, just add POD in the command class:
22
23 package YourApp::Command::Foo;
24
25
26 =head1 NAME
27
28 YourApp::Command::Foo - execute foo
29
30 =head1 DESCRIPTION
31
32 blah blah
33
34 =head1 USAGE
35
36 ....
37
38 =cut
39
40
41
42perl v5.34.0 2021-07-22 App::CLI::Command::Help(3)