Mail::Message::Body::Construct

Constructing a body

$obj->attach(@messages, %options)

Make a multipart containing this body and the specified @messages. The options are passed to the constructor of the multi-part body. If you need more control, create the multi-part body yourself. At least take a look at Mail::Message::Body::Multipart.

The message-parts will be coerced into a Mail::Message::Part, so you may attach Mail::Internet or MIME::Entity objects if you want --see Mail::Message::coerce(). A new body with attached messages is returned.

» example:

  my $pgpkey = Mail::Message::Body::File->new(file => 'a.pgp');
  my $msg    = Mail::Message->buildFromBody($message->decoded->attach($pgpkey));
  # The last message of the $multi multiparted body becomes a coerced $entity.
  my $entity  = MIME::Entity->new;
  my $multi   = $msg->body->attach($entity);
  # Now create a new message
  my $msg     = Mail::Message->new(head => ..., body => $multi);
    

$obj->concatenate(@components)

Concatenate the textual content of a LIST of elements into one new body. The resulting body object is based on the callee, which may itself not be included in the result.

Specify a list of text @components. Each component can be

  # all arguments are Mail::Message::Body's.
  my $sum = $body->concatenate($preamble, $body, $epilogue, "-- \n" , $sig);

$obj->foreachLine(CODE)

Create a new body by performing an action on each of its lines. If none of the lines change, the current body will be returned, otherwise a new body is created of the same type as the current.

The "CODE" refers to a subroutine which is called, where $_ contains body's original line. DO NOT CHANGE $_!!! The result of the routine is taken as new line. When the routine returns "undef", the line will be skipped.

» example:

  my $content  = $msg->decoded;
  my $reply    = $content->foreachLine( sub { '> '.$_ } );
  my $rev      = $content->foreachLine( sub { reverse } );
  sub filled() { length $_ > 1 ? $_ : undef }
  my $nonempty = $content->foreachLine( \&filled );
  my $WRONG    = $content->foreachLine( sub { s/a/A/ } );
  my $right    = $content->foreachLine( sub { s/a/A/r });
    

$obj->stripSignature(%options)

Strip the signature from the body. The body must already be decoded otherwise the wrong lines may get stripped. Returned is the stripped version body, and in list context also the signature, encapsulated in its own body object. The signature separator is the first line of the returned signature body.

The signature is added by the sender to tell about him- or herself. It is superfluous in some situations, for instance if you want to create a reply to the person's message you do not need to include that signature.

If the body had no signature, the original body object is returned, and "undef" for the signature body.

 -Option     --Default
  max_lines    10
  pattern      qr/^--\s?$/
  result_type  <same as current>
    

  my $start = $message->decoded;
  my $start = $body->decoded;
  my $stripped = $start->stripSignature;
  my ($stripped, $sign) = $start->stripSignature
      (max_lines => 5, pattern => '-*-*-');