File Coverage

blib/lib/Mail/URLFor/Plugin/OSX.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::OSX;
use Moo 2;

our $VERSION = '0.03';

=head1 NAME

Mail::URLFor::Plugin::OSX - deep links to mails on OSX Mail.app

=head1 SYNOPSIS

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

=cut

has 'template' => (
    is => 'ro',
    default => 'message:%%3C%s%%3E',
);

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

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

around 'munge_messageid' => sub { $_[2] };

1;

__END__