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.