line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
3
|
|
|
3
|
|
2038
|
use strict; |
|
3
|
|
|
|
|
7
|
|
|
3
|
|
|
|
|
90
|
|
2
|
3
|
|
|
3
|
|
15
|
use warnings; |
|
3
|
|
|
|
|
17
|
|
|
3
|
|
|
|
|
149
|
|
3
|
|
|
|
|
|
|
package Email::Abstract::EmailMIME; |
4
|
|
|
|
|
|
|
# ABSTRACT: Email::Abstract wrapper for Email::MIME |
5
|
|
|
|
|
|
|
$Email::Abstract::EmailMIME::VERSION = '3.009'; |
6
|
3
|
|
|
3
|
|
25
|
use Email::Abstract::EmailSimple; |
|
3
|
|
|
|
|
5
|
|
|
3
|
|
|
|
|
93
|
|
7
|
3
|
|
|
3
|
|
466
|
BEGIN { @Email::Abstract::EmailMIME::ISA = 'Email::Abstract::EmailSimple' }; |
8
|
|
|
|
|
|
|
|
9
|
3
|
|
|
3
|
0
|
11
|
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__ |