File Coverage

blib/lib/Mail/URLFor/Plugin/Thunderlink.pm

Criterion	Covered	Total	%
statement	3	3	100.0
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	4	4	100.0

package Mail::URLFor::Plugin::Thunderlink;
use Moo 2;

our $VERSION = '0.02';

=head1 NAME

Mail::URLFor::Plugin::Thunderlink - deep links to mails on Thunderbird

=head1 SYNOPSIS

    my $r = Mail::URLFor::Plugin::Thunderlink->new();
    my $url = $r->render('[e-mail]');
    print "See mail";

=cut

has 'template' => (
    is => 'ro',
    default => 'thunderlink://messageid=%s',
);

has 'moniker' => (
    is => 'ro',
    default => sub {
        __PACKAGE__ =~ /.*::(\w+)$/;
        $1
    },
);

with 'Mail::URLFor::Role::Template';

1;

__END__