File Coverage

blib/lib/Mail/Message/Convert.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition 1 3 33.3
subroutine 6 6 100.0
pod 1 2 50.0
total 26 29 89.6


line stmt bran cond sub pod time code
1             # Copyrights 2001-2021 by [Mark Overmeer ].
2             # For other contributors see ChangeLog.
3             # See the manual pages for details on the licensing terms.
4             # Pod stripped from pm file by OODoc 2.02.
5             # This code is part of distribution Mail-Message. Meta-POD processed with
6             # OODoc into POD and HTML manual-pages. See README.md
7             # Copyright Mark Overmeer. Licensed under the same terms as Perl itself.
8              
9             package Mail::Message::Convert;
10 4     4   976 use vars '$VERSION';
  4         10  
  4         215  
11             $VERSION = '3.011';
12              
13 4     4   24 use base 'Mail::Reporter';
  4         10  
  4         545  
14              
15 4     4   30 use strict;
  4         8  
  4         113  
16 4     4   22 use warnings;
  4         10  
  4         804  
17              
18              
19             sub init($)
20 3     3 0 9 { my ($self, $args) = @_;
21 3         20 $self->SUPER::init($args);
22              
23             $self->{MMC_fields} = $args->{fields} ||
24 3   33     24 qr#^(Resent\-)?(To|From|Cc|Bcc|Subject|Date)\b#i;
25              
26 3         8 $self;
27             }
28              
29             #------------------------------------------
30              
31              
32             sub selectedFields($)
33 6     6 1 16 { my ($self, $head) = @_;
34 6         26 $head->grepNames($self->{MMC_fields});
35             }
36              
37             #------------------------------------------
38              
39              
40             1;