Mail::Summary::Tools::CLI - App::Cmd based mailing list summarization tool.


Mail-Summary-Tools documentation Contained in the Mail-Summary-Tools distribution.

Index


Code Index:

NAME

Top

Mail::Summary::Tools::CLI - App::Cmd based mailing list summarization tool.

SYNOPSIS

Top

	use Mail::Summary::Tools::CLI;

DESCRIPTION

Top


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__