#!/usr/bin/perl

use warnings;
use strict;
use lib '..', '.';
use Mail::Box::Manager;
use Mail::Message::Body;

my $html = <<EOH;
<html><header></header><body>Multipart testmail</body></html>
EOH

my $text = <<EOT;
Multipart testmail
EOT

my $htmlbody = Mail::Message::Body->new(mime_type=>'text/html',
data=>$html);

my $textbody = Mail::Message::Body->new(mime_type=>'text/plain',
data=>$text);

  my $mpbody = Mail::Message::Body::Multipart->new
   ( mime_type => 'multipart/alternative'
   , preamble => "This is a multi-part message in MIME format.\n\n"
   , parts     => [ $htmlbody, $textbody ]
   );

  my $message = Mail::Message->buildFromBody
  ( $mpbody
  , To => 'somebody@somewhere.net'
  );


$message->printStructure;
$message->print(\*STDOUT);

