package Service::XML;

use warnings;
use strict;

use parent 'Service';
use XML::LibXML;

sub new {
    my $class = shift;
    my $self = $class->SUPER::new(@_);
    my $xml = 'XML::LibXML::Document'->new;
    $xml->setDocumentElement($xml->createElement('data'));
    $xml->documentElement->appendTextNode('[data]');
    $self->{template} = $xml->toString;
    return $self
}

__PACKAGE__