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   9898 use Moo::Role;
  1         2  
  1         5  
3 1     1   842 use URI::Escape 'uri_escape';
  1         1518  
  1         55  
4 1     1   7 use Filter::signatures;
  1         7  
  1         7  
5 1     1   29 no warnings 'experimental::signatures';
  1         2  
  1         36  
6 1     1   5 use feature 'signatures';
  1         2  
  1         105  
7              
8 1     1   521 use namespace::autoclean;
  1         13564  
  1         3  
9              
10             requires 'template';
11              
12             our $VERSION = '0.03';
13              
14 10     10 0 10 sub munge_messageid( $self, $messageid ) {
  10         16  
  10         15  
  10         12  
15 10         22 uri_escape($messageid)
16             }
17              
18 15     15 0 24 sub render( $self, $rfc822id ) {
  15         21  
  15         20  
  15         22  
19 15         145 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