File Coverage

blib/lib/Mail/URLFor/Plugin/Gmail.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::Gmail;
2 1     1   744 use Moo 2;
  1         17  
  1         6  
3              
4             our $VERSION = '0.02';
5              
6             =head1 NAME
7              
8             Mail::URLFor::Plugin::Gmail - deep links to mails on Gmail
9              
10             =head1 SYNOPSIS
11              
12             my $r = Mail::URLFor::Plugin::Gmail->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 => 'https://mail.google.com/mail/#search/rfc822msgid%%3A%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__