Email::MIME::Creator(3p)

NAME
Email::MIME::Creator - Email::MIME constructor for starting anew.

SYNOPSIS
  use Email::MIME::Creator;
  use IO::All;

  # multipart message
  my @parts = (
      Email::MIME->create(
          attributes => {
              filename     => "report.pdf",
              content_type => "application/pdf",
              encoding     => "quoted-printable",
              name         => "2004-financials.pdf",
          },
          body => io( "2004-financials.pdf" )->all,
      ),
      Email::MIME->create(
          attributes => {
              content_type => "text/plain",
              disposition  => "attachment",
              charset      => "US-ASCII",
          },
          body => "Hello there!",
      ),
  );

  my $email = Email::MIME->create(
      header => [ From => 'casey@geeknest.com' ],
      parts  => [ @parts ],
  );

  # nesting parts
  $email->parts_set(
      [
        $email->parts,
        Email::MIME->create( parts => [ @parts ] ),
      ],
  );

  # standard modifications
  $email->header_set( 'X-PoweredBy' => 'RT v3.0'      );
  $email->header_set( To            => rcpts()        );
  $email->header_set( Cc            => aux_rcpts()    );
  $email->header_set( Bcc           => sekrit_rcpts() );

  # more advanced
  $_->encoding_set( 'base64' ) for $email->parts;

  # Quick multipart creation
  my $quicky = Email::MIME->create(
      header => [
          From => 'my@address',
          To   => 'your@address',
      ],
      parts => [
          q[This is part one],
          q[This is part two],
          q[These could be binary too],
      ],
  );

  print $email->as_string;

  *rcpts = *aux_rcpts = *sekrit_rcpts = sub { 'you@example.com' };

DESCRIPTION

  Methods

create
      my $single = Email::MIME->create(
        header     => [ ... ],
        attributes => { ... },
        body       => '...',
      );

      my $multi = Email::MIME->create(
        header     => [ ... ],
        attributes => { ... },
        parts      => [ ... ],
      );

    This method creates a new MIME part. The "header" parameter is a lis of headers to include in the message. "attributes" is a hash of MIME attributes to assign to the part, and may override portions of the header set in the "header" parameter.

    The "parts" parameter is a list reference containing "Email::MIME" objects. Elements of the "parts" list can also be a non-reference string of data. In that case, an "Email::MIME" object will be created for you. Simple checks will determine if the part is binary or not, and all parts created in this fashion are encoded with "base64", just in case.

    "parts" takes precedence over "body", which will set this part's body if assigned. So, multi part messages shold use the "parts" parameter and single part messages should use "body".

    Back to "attributes". The hash keys correspond directly to methods or modifying a message from "Email::MIME::Modifier". The allowed keys are: content_type, charset, name, format, boundary, encoding, disposition, and filename. They will be mapped to "$attr\_set" for message modification.

SEE ALSO
Email::MIME, Email::MIME::Modifier, Email::Simple::Creator, "IO::All" or "File::Slurp" (for file slurping to create parts from strings), perl.

PERL EMAIL PROJECT
This module is maintained by the Perl Email Project.

<http://emailproject.perl.org/wiki/Email::MIME::Creator>

ORIGINAL AUTHOR
Do not send bug reports to: Casey West, <casey@geeknest.com>.

COPYRIGHT
  Copyright (c) 2004 Casey West.  All rights reserved.
  This module is free software; you can redistribute it and/or modify it
  under the same terms as Perl itself.