NAME

Mail::Message::Attachment::Stripper - Strip the attachments from a mail

SYNOPSIS

        my $stripper = Mail::Message::Attachment::Stripper->new($mail);

        my Mail::Message $msg = $stripper->message;
        my @attachments       = $stripper->attachments;

DESCRIPTION

Given a Mail::Message object, detach all attachments from the message. These are then available separately.

METHODS

new

        my $stripper = Mail::Message::Attachment::Stripper->new($mail);

This should be instantiated with a Mail::Message object.

message

        my Mail::Message $msg = $stripper->message;

This returns the message with all the attachments detached. This will alter both the body and the header of the message.

attachments

        my @attachments = $stripper->attachments;

This returns a list of all the attachments we found in the message, as a hash of { filename, content_type, payload }.