@EXPORT = ();
- %EXPORT_TAGS = (mime => [qw(parse create_mime_message getmailbody)],
+ %EXPORT_TAGS = (mime => [qw(parse create_mime_message getmailbody),
+ qw(parse_to_mime_entity),
+ ],
rfc1522 => [qw(decode_rfc1522 encode_rfc1522)],
);
@EXPORT_OK=();
use MIME::Parser;
use POSIX qw(strftime);
-use List::MoreUtils qw(apply);
+use List::AllUtils qw(apply);
# for convert_to_utf8
use Debbugs::UTF8 qw(convert_to_utf8);
return undef;
}
-=item parse_to_mime_entity
+=head2 parse_to_mime_entity
$entity = parse_to_mime_entity($record);
my $parser = MIME::Parser->new();
my $entity;
# this will be cleaned up once we exit
- $tempdir = File::Temp->newdir();
+ my $tempdir = File::Temp->newdir();
$parser->output_dir($tempdir->dirname());
if (ref($record) eq 'HASH') {
if ($record->{inner_file}) {