NAME
App::CLI::Command - Base class for App::CLI commands
SYNOPSIS
package MyApp;
use base 'App::CLI';
package main;
MyApp->dispatch;
package MyApp::Help;
use base 'App::CLI::Command';
sub options { (
'verbose' => 'verbose',
'n|name=s' => 'name'
}
sub run {
my ( $self, $arg ) = @_;
print "verbose" if $self->{verbose};
my $name = $self->{name};
}DESCRIPTION
brief_usage ($file)
Display an one-line brief usage of the command object. Optionally, a file could be given to extract the usage from the POD.
usage ($want_detail)
Display usage. If $want_detail is true, the DESCRIPTION section is displayed as well.
loc_text $text
Localizes the body of (formatted) text in $text, and returns the localized version.
filename
Return the filename for the command module.
TODO
More documentation
SEE ALSO
AUTHORS
Chia-liang Kao <clkao@clkao.org>
COPYRIGHT
Copyright 2005-2006 by Chia-liang Kao <clkao@clkao.org>.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.