File Coverage

blib/lib/Email/MIME/Creator.pm
Criterion Covered Total %
statement 21 21 100.0
branch 4 4 100.0
condition n/a
subroutine 7 7 100.0
pod n/a
total 32 32 100.0


line stmt bran cond sub pod time code
1 19     19   3764 use 5.008001;
  19         73  
2 19     19   112 use strict;
  19         42  
  19         463  
3 19     19   127 use warnings;
  19         37  
  19         977  
4             package Email::MIME::Creator 1.951;
5             # ABSTRACT: obsolete do-nothing library
6              
7 19     19   2483 use parent q[Email::Simple::Creator];
  19         1813  
  19         124  
8 19     19   8128 use Email::MIME;
  19         47  
  19         614  
9 19     19   7243 use Encode ();
  19         130928  
  19         2633  
10              
11             sub _construct_part {
12 14     14   33 my ($class, $body) = @_;
13              
14 14         49 my $is_binary = $body =~ /[\x00\x80-\xFF]/;
15              
16 14 100       40 my $content_type = $is_binary ? 'application/x-binary' : 'text/plain';
17              
18 14 100       91 Email::MIME->create(
19             attributes => {
20             content_type => $content_type,
21             encoding => ($is_binary ? 'base64' : ''), # be safe
22             },
23             body => $body,
24             );
25             }
26              
27             1;
28              
29             #pod =head1 SYNOPSIS
30             #pod
31             #pod You don't need to use this module for anything.
32             #pod
33             #pod =cut
34              
35             __END__