Mail::Summary::Tools::ArchiveLink::Hardcoded - Mail::Summary::Tools::ArchiveLink::Hardcoded documentation

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

Index

Code Index:

NAME

Top

Mail::Summary::Tools::ArchiveLink::Hardcoded -

SYNOPSIS

Top

	use Mail::Summary::Tools::ArchiveLink::Hardcoded;

DESCRIPTION

Top

Mail-Summary-Tools documentation Contained in the Mail-Summary-Tools distribution. 
#!/usr/bin/perl

package Mail::Summary::Tools::ArchiveLink::Hardcoded;
use Moose;
use Moose::Util::TypeConstraints;

use URI;

subtype __PACKAGE__ . "::URI"
	=> as "Object"
	=> where { $_->isa("URI") };

coerce __PACKAGE__ . "::URI"
	=> from "Str"
	=> via { URI->new($_[0]) };

has thread_uri => (
	isa => __PACKAGE__ . "::URI",
	is  => "rw",
	coerce => 1,
);

has message_uri => (
	isa => __PACKAGE__ . "::URI",
	is  => "rw",
	coerce => 1,
);

with "Mail::Summary::Tools::ArchiveLink";

__PACKAGE__;

__END__