File Coverage

blib/lib/XML/EP/Formatter/HTML.pm

Criterion	Covered	Total	%
statement	0	15	0.0
branch	0	4	0.0
condition	0	3	0.0
subroutine	0	3	0.0
pod	0	2	0.0
total	0	27	0.0

# -*- perl -*-

package XML::EP::Formatter::HTML;

$XML::EP::Formatter::HTML = '0.01';


sub new {
    my $proto = shift;
    my $self = (@_ == 1) ? \%{ shift() } : { @_ };
    bless($self, (ref($proto) || $proto));
}

sub Format {
    my $self = shift;  my $ep = shift;  my $xml = shift;
    my $response = $ep->Response();
    $response->ContentType("text/html") unless $response->ContentType();
    my $fh = $ep->Request()->FileHandle();
    XML::DOM::setTagCompression(sub {1});

    $xml->setXMLDecl(undef);

    print $fh $ep->Response->Headers();

    $xml->printToFileHandle($fh);
}