| Mail-Summary-Tools documentation | Contained in the Mail-Summary-Tools distribution. |
Mail::Summary::Tools::CLI - App::Cmd based mailing list summarization tool.
use Mail::Summary::Tools::CLI;
| Mail-Summary-Tools documentation | Contained in the Mail-Summary-Tools distribution. |
#!/usr/bin/perl package Mail::Summary::Tools::CLI; use base qw/App::Cmd/; use Class::Autouse (<<'#\'END_USE' =~ m!(\w+::[\w:]+)!g); #\ use Mail::Summary::Tools::CLI::Context; use Mail::Summary::Tools::CLI::Config; #'END_USE use strict; use warnings; use constant global_opt_spec => ( [ "verbose|v!" => "Verbose output" ], ); use constant plugin_search_path => __PACKAGE__; sub _module_pluggable_options { return ( only => qr/CLI::\w+$/x, # no nested commands except => qr/CLI::(?:Context|Config|Command)$/, ); } sub config { my $self = shift; $self->{config} ||= Mail::Summary::Tools::CLI::Config->new(); } sub context { my $self = shift; $self->{context} ||= Mail::Summary::Tools::CLI::Context->new(); } __PACKAGE__; __END__