File Coverage

blib/lib/Lido/XML.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Lido::XML;

our $VERSION = '0.07';

use Moo;
use Lido::XML::LIDO_1_0;
use Lido::XML::Error;
use XML::Compile;
use XML::Compile::Cache;
use XML::Compile::Schema;
use XML::Compile::Util 'pack_type';
use Try::Tiny;

has 'namespace' => (is => 'ro' , default => sub {'http://www.lido-schema.org'});
has 'root'      => (is => 'ro' , default => sub {'lido'});
has 'prefixes'  => (is => 'ro' , default => sub {
                      [
                        'lido' => 'http://www.lido-schema.org',
                        'doc' => 'http://www.mda.org.uk/spectrumXML/Documentation',
                        'gml' => 'http://www.opengis.net/gml',
                        'xsd' => 'http://www.w3.org/2001/XMLSchema',
                        'xml' => 'http://www.w3.org/XML/1998/namespace'
                      ]
                    });

has 'reader'    => (is => 'ro');
has 'writer'    => (is => 'ro');

sub BUILD {
    my ($self) = @_;

    my @schemes = Lido::XML::LIDO_1_0->new->content;
    my $schema  = XML::Compile::Cache->new(\@schemes);
    my $type    = pack_type $self->namespace, $self->root;

    $self->{reader} = $schema->compile(READER => $type);
    $self->{writer} = $schema->compile(WRITER => $type, ( prefixes => $self->prefixes ) );

    $schema = undef;
}

sub parse {
    my ($self,$input) = @_;
    my $perl;
    try {
        $perl = $self->reader->($input);
    } catch {;
        Lido::XML::Error->throw(sprintf('%s', $_));
    };
    $perl;
}

sub to_xml {
    my ($self,$data) = @_;
    my $doc    = XML::LibXML::Document->new('1.0', 'UTF-8');
    my $xml;
    try {
        $xml    = $self->writer->($doc, $data);
    } catch {
        Lido::XML::Error->throw(sprintf('%s', $_));
    };
    $doc->setDocumentElement($xml);
    $doc->toString(1);
}

1;

__END__