NAME
App::CLI - Dispatcher module for command line interface programs
SYNOPSIS
package MyApp;
use base 'App::CLI'; # the DISPATCHER of your App
# it's not necessary putting the dispatcher
# on the top level of your App
package main;
MyApp->dispatch; # call dispatcher in where you want
package MyApp::List;
use base qw(App::CLI::Command); # any (SUB)COMMAND of your App
use constant options => (
"h|help" => "help",
"verbose" => "verbose",
'n|name=s' => 'name',
);
use constant subcommands => qw(User Nickname type); # if you want subcommands
# automatically dispatch to subcommands
# when invoke $ myapp list [user|nickname|--type]
# note 'type' is not capitalized
# it is a deprecated subcommand
sub run {
my ($self, @args) = @_;
print "verbose" if $self->{verbose};
my $name = $self->{name}; # get arg following long option --name
if ($self->{help}) {
# if $ myapp list --help or $ myapp list -h
# just only output PODs
} else {
# do something when imvoking $ my app list
# without subcommand and --help
}
}
package MyApp::List::User;
use base qw(App::CLI::Command);
use constant options => (
"h|help" => "help",
);
sub run {
my ($self,@args) = @_;
# code for listing user
}
pakcage MyApp::List::Nickname;
use base qw(App::CLI::Command);
use constant options => (
"sort=s" => "sort",
);
sub run {
my ($self,@args) = @_;
# code for listing nickname
}
package MyApp::List::type; # old genre of subcommand could not cascade infinitely
use base qw(MyApp::List); # should inherit its parent's command
sub run {
my ($self, @args);
# run to here when invoking $ myapp list --type
}
package MyApp::Help;
use base 'App::CLI::Command::Help';
use constant options => (
'verbose' => 'verbose',
);
sub run {
my ($self, @arg) = @_;
# do something
$self->SUPER(@_); # App::CLI::Command::Help would output POD of each command
}DESCRIPTION
App::CLI dispatches CLI (command line interface) based commands into command classes. It also supports subcommand and per-command options.
get_opt([@config], %opt_map)
Give options map, processed by Getopt::Long::Parser.
Interface of dispatcher
cmd_map($cmd)
Find package name of subcommand in constant %alias.
If it's found, return ucfirst of the package name, otherwise, return ucfirst of $cmd itself.
get_cmd($cmd, @arg)
Return subcommand of first level via $ARGV[0].
SEE ALSO
App::CLI::Command Getopt::Long
MODULES USE App::CLI
Jifty::Script, App::gh, App::I18N
AUTHORS
Chia-liang Kao <clkao@clkao.org>
Yo-An Lin <cornelius.howl@gmail.com>
Shelling <navyblueshellingford@gmail.com>
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.