#!/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__
=pod
=head1 NAME
Mail::Summary::Tools::CLI - App::Cmd based mailing list summarization tool.
=head1 SYNOPSIS
use Mail::Summary::Tools::CLI;
=head1 DESCRIPTION
=cut