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


line stmt bran cond sub pod time code
1             package Mail::URLFor::Plugin::Thunderlink;
2 1     1   1506 use Moo 2;
  1         20  
  1         9  
3              
4             our $VERSION = '0.02';
5              
6             =head1 NAME
7              
8             Mail::URLFor::Plugin::Thunderlink - deep links to mails on Thunderbird
9              
10             =head1 SYNOPSIS
11              
12             my $r = Mail::URLFor::Plugin::Thunderlink->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 => 'thunderlink://messageid=%s',
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             1;
34              
35             __END__