File Coverage

blib/lib/Mail/Mailer/rfc822.pm
Criterion Covered Total %
statement 9 17 52.9
branch 0 2 0.0
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 12 24 50.0


line stmt bran cond sub pod time code
1             # Copyrights 1995-2018 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 the bundle MailTools. Meta-POD processed with
6             # OODoc into POD and HTML manual-pages. See README.md for Copyright.
7             # Licensed under the same terms as Perl itself.
8              
9             package Mail::Mailer::rfc822;
10 1     1   8 use vars '$VERSION';
  1         2  
  1         49  
11             $VERSION = '2.20';
12              
13 1     1   4 use base 'Mail::Mailer';
  1         2  
  1         117  
14              
15 1     1   6 use strict;
  1         2  
  1         199  
16              
17             sub set_headers
18 0     0 0   { my ($self, $hdrs) = @_;
19              
20 0           local $\ = "";
21              
22 0           foreach (keys %$hdrs)
23 0 0         { next unless m/^[A-Z]/;
24              
25 0           foreach my $h ($self->to_array($hdrs->{$_}))
26 0           { $h =~ s/\n+\Z//;
27 0           print $self "$_: $h\n";
28             }
29             }
30              
31 0           print $self "\n"; # terminate headers
32             }
33              
34             1;