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


line stmt bran cond sub pod time code
1             package Mail::URLFor::Plugin::OSX;
2 1     1   822 use Moo 2;
  1         15  
  1         5  
3              
4             our $VERSION = '0.03';
5              
6             =head1 NAME
7              
8             Mail::URLFor::Plugin::OSX - deep links to mails on OSX Mail.app
9              
10             =head1 SYNOPSIS
11              
12             my $r = Mail::URLFor::Plugin::OSX->new();
13             my $url = $r->render('123456-abcdef-ghijkl@example.com');
14             print "See mail";
15              
16             =cut
17              
18             has 'template' => (
19             is => 'ro',
20             default => 'message:%%3C%s%%3E',
21             );
22              
23             has 'moniker' => (
24             is => 'ro',
25             default => sub {
26             __PACKAGE__ =~ /.*::(\w+)$/;
27             $1
28             },
29             );
30              
31             with 'Mail::URLFor::Role::Template';
32              
33             around 'munge_messageid' => sub { $_[2] };
34              
35             1;
36              
37             __END__