File Coverage

blib/lib/Mail/URLFor/Role/Template.pm
Criterion Covered Total %
statement 28 28 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 0 2 0.0
total 36 38 94.7


line stmt bran cond sub pod time code
1             package Mail::URLFor::Role::Template;
2 1     1   9798 use Moo::Role;
  1         2  
  1         7  
3 1     1   887 use URI::Escape 'uri_escape';
  1         1650  
  1         71  
4 1     1   8 use Filter::signatures;
  1         25  
  1         12  
5 1     1   34 no warnings 'experimental::signatures';
  1         1  
  1         34  
6 1     1   5 use feature 'signatures';
  1         2  
  1         95  
7              
8 1     1   506 use namespace::autoclean;
  1         13630  
  1         3  
9              
10             requires 'template';
11              
12             our $VERSION = '0.02';
13              
14 10     10 0 11 sub munge_messageid( $self, $messageid ) {
  10         16  
  10         14  
  10         11  
15 10         24 uri_escape($messageid)
16             }
17              
18 15     15 0 22 sub render( $self, $rfc822id ) {
  15         22  
  15         20  
  15         18  
19 15         151 return sprintf $self->template, $self->munge_messageid( $rfc822id )
20             }
21              
22             1;
23              
24             =head1 REPOSITORY
25              
26             The public repository of this module is
27             L.
28              
29             =head1 SUPPORT
30              
31             The public support forum of this module is
32             L.
33              
34             =head1 BUG TRACKER
35              
36             Please report bugs in this module via the RT CPAN bug queue at
37             L
38             or via mail to L.
39              
40             =head1 AUTHOR
41              
42             Max Maischein C
43              
44             =head1 COPYRIGHT (c)
45              
46             Copyright 2019 by Max Maischein C.
47              
48             =head1 LICENSE
49              
50             This module is released under the same terms as Perl itself.
51              
52             =cut