File Coverage

blib/lib/Net/Gmail/IMAP/Label.pm

Criterion	Covered	Total	%
statement	19	21	90.4
branch	2	4	50.0
condition	1	3	33.3
subroutine	6	6	100.0
pod	0	1	0.0
total	28	35	80.0

package Net::Gmail::IMAP::Label;
# ABSTRACT: IMAP proxy for Google's Gmail that retrieves message labels
$Net::Gmail::IMAP::Label::VERSION = '0.008';
use strict;
use warnings;
use Net::Gmail::IMAP::Label::Proxy;
use Getopt::Long::Descriptive;

sub import {
	my ($class, @opts) = @_;
	return unless (@opts == 1 && $opts[0] eq 'run');
	$class->run;
}

sub run {
	my ($opts, $usage) = describe_options(
		"$0 %o",
		[ 'port|p=i',   "local port to connect to (default: @{[Net::Gmail::IMAP::Label::Proxy::DEFAULT_LOCALPORT]})", { default => Net::Gmail::IMAP::Label::Proxy::DEFAULT_LOCALPORT } ],
		[ 'verbose|v+', "increase verbosity (multiple flags for more verbosity)" , { default => 0 } ],
		[ 'help|h|?',   "print usage message and exit" ],
	);

	if($opts->help) {
		print($usage->text);
		return 1;
	}

	Net::Gmail::IMAP::Label::Proxy->new(localport => $opts->port, verbose => $opts->verbose)->run();
}

1;


# vim:ts=4:sw=4

__END__