File Coverage

blib/lib/Email/Abstract/EmailMIME.pm
Criterion Covered Total %
statement 11 16 68.7
branch n/a
condition n/a
subroutine 5 7 71.4
pod 0 3 0.0
total 16 26 61.5


line stmt bran cond sub pod time code
1 3     3   1902 use strict;
  3         10  
  3         90  
2 3     3   16 use warnings;
  3         14  
  3         143  
3             package Email::Abstract::EmailMIME;
4             # ABSTRACT: Email::Abstract wrapper for Email::MIME
5             $Email::Abstract::EmailMIME::VERSION = '3.010';
6 3     3   24 use Email::Abstract::EmailSimple;
  3         15  
  3         115  
7 3     3   465 BEGIN { @Email::Abstract::EmailMIME::ISA = 'Email::Abstract::EmailSimple' };
8              
9 3     3 0 10 sub target { "Email::MIME" }
10              
11             sub construct {
12 0     0 0   require Email::MIME;
13 0           my ($class, $rfc822) = @_;
14 0           Email::MIME->new($rfc822);
15             }
16              
17             sub get_body {
18 0     0 0   my ($class, $obj) = @_;
19              
20             # Return the same thing you'd get from Email::Simple.
21             #
22             # Ugh. -- rjbs, 2014-12-27
23 0           return $obj->body_raw;
24             }
25              
26             1;
27              
28             #pod =head1 DESCRIPTION
29             #pod
30             #pod This module wraps the Email::MIME mail handling library with an
31             #pod abstract interface, to be used with L
32             #pod
33             #pod =head1 SEE ALSO
34             #pod
35             #pod L, L.
36             #pod
37             #pod =cut
38              
39             __END__