File Coverage

blib/lib/WWW/Postini/Constants.pm

Criterion	Covered	Total	%
statement	45	45	100.0
branch			n/a
condition			n/a
subroutine	15	15	100.0
pod			n/a
total	60	60	100.0

package WWW::Postini::Constants;

use strict;
use warnings;

use Exporter;

use vars qw( @ISA @EXPORT_OK %EXPORT_TAGS $VERSION );

use constant SHOW_ALL          => 0;
use constant SHOW_QUARANTINED  => 1;
use constant SHOW_DELIVERED    => 2;
use constant SHOW_DELETED      => 3;

use constant SORT_NONE         => 0;
use constant SORT_RECIPIENT    => 1;
use constant SORT_SENDER       => 3;
use constant SORT_SUBJECT      => 4;
use constant SORT_FILTER       => 5;

use constant RECIPIENT_USER    => 0;
use constant RECIPIENT_ADMIN   => 1;

$VERSION = '0.01';

@ISA = qw( Exporter );

@EXPORT_OK = qw(
	SHOW_ALL
	SHOW_QUARANTINED
	SHOW_DELIVERED
	SHOW_DELETED

	SORT_NONE
	SORT_RECIPIENT
	SORT_SENDER
	SORT_SUBJECT
	SORT_FILTER

	RECIPIENT_USER
	RECIPIENT_ADMIN
);

%EXPORT_TAGS = (
	'all'  => [qw(
		SHOW_ALL
		SHOW_QUARANTINED
		SHOW_DELIVERED
		SHOW_DELETED
		SORT_NONE
		SORT_RECIPIENT
		SORT_SENDER
		SORT_SUBJECT
		SORT_FILTER
		RECIPIENT_USER
		RECIPIENT_ADMIN
	)],
	'show' => [qw(
		SHOW_ALL
		SHOW_QUARANTINED
		SHOW_DELIVERED
		SHOW_DELETED
	)],
	'sort' => [qw(
		SORT_NONE
		SORT_RECIPIENT
		SORT_SUBJECT
		SORT_FILTER
	)],
	'recipient' => [qw(
		RECIPIENT_USER
		RECIPIENT_ADMIN
	)]
);

1;

__END__