File Coverage

blib/lib/Mail/XML.pm

Criterion	Covered	Total	%
statement	4	6	66.6
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	6	8	75.0

# (c)2000 Matthew MacKenzie
# License: Artistic or LGPL, your choice.

package Mail::XML;
use strict;
use Mail::Internet;
use XML::Writer;
use IO::Scalar;
use Carp;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

require Exporter;

@ISA = qw(Exporter Mail::Internet);
$VERSION = '0.03';

sub toXML {
	my ($self) = shift;
	my $head = $self->head() || croak;
	my $body = $self->body() || croak;

	my $data = "";
	my $hdl = new IO::Scalar(\$data);
	my $w = new XML::Writer(OUTPUT => $hdl);
	$w->xmlDecl("ISO-8859-1");
	$w->comment("Mail::XML version " . $VERSION);
	$w->startTag("Message");
	$w->startTag("Head");
	foreach my $tag ($head->tags()) {
		chomp(my $c = $head->get($tag));
		if ($tag =~ m!From\s!) {
			$tag = "MTA_From";
		}
		$w->startTag($tag);
		$w->characters($c);
		$w->endTag($tag);
	}
	$w->endTag("Head");
	$w->startTag("Body");

	foreach (@$body) {
		$w->characters($_);
	}
	$w->endTag("Body");
	$w->endTag("Message");
	$w->end();
	$hdl->close();
	return $data;
}

1;
__END__