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 }.

BUGS and QUERIES

Please direct all correspondence regarding this module to: bug-Mail-Message-Attachment-Stripper@rt.cpan.org

COPYRIGHT AND LICENSE

  Copyright (C) 2002-2005 Kasei

  This program is free software; you can redistribute it and/or modify it under
  the terms of the GNU General Public License; either version 2 of the License,
  or (at your option) any later version.

  This program is distributed in the hope that it will be useful, but WITHOUT
  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  FOR A PARTICULAR PURPOSE.