#!/usr/bin/perl

use strict;

use lib '../lib';
use Mail::Message;
use Mail::Message::Body::Lines;

my $body = Mail::Message::Body::Lines->new
  ( data      => ["This content should be readible\n" ]
  , mime_type => 'text/html'
  , transfer_encoding => 'base64'
  , charset => 'UTF-8'
  ) ;

my $msg = Mail::Message->buildFromBody($body);
$msg->print;

my $msg2 = Mail::Message->build
 ( 'Content-Type' => 'text/html; charset=UTF-8'
 , 'Content-Transfer-Encoding' => 'base64'
 ,  data      => ["This content should be readible\n" ]
 );

$msg2->print;
