File Coverage

blib/lib/XML/IODEF.pm

Criterion	Covered	Total	%
statement	9	11	81.8
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	13	15	86.6

package XML::IODEF;

use 5.008008;
use strict;
use warnings;

our $VERSION = '0.11_3';

use XML::Compile::Schema;
use XML::Compile::Util qw/pack_type/;
use XML::LibXML;
use Data::Dumper;

XML::Compile->addSchemaDirs(__FILE__);

sub new {
    my $class = shift;
    my $args = shift;
    my $self = {};
    bless($self,$class);

    my $type    = pack_type 'urn:ietf:params:xml:ns:iodef-1.0', 'IODEF-Document';
    my $s       = XML::Compile::Schema->new('iodef.xsd');
    my $doc     = XML::LibXML::Document->new('1.0', 'UTF-8');
    my $writer  = $s->compile(WRITER => $type, prefixes => [ iodef => 'urn:ietf:params:xml:ns:iodef-1.0' ]);
    $self->writer($writer);

    return($self);
}

sub out {
    my $self 	= shift;
    my $hash    = shift;
    my $pretty  = shift || 0;
    my $doc     = XML::LibXML::Document->new('1.0', 'UTF-8');
    my $xml     = $self->writer->($doc, $hash);
    return $xml->toString($pretty);
}

sub writer {
    my ($self,$v) = @_;
    $self->{'_writer'} = $v if(defined($v));
    return $self->{'_writer'};
}

# Preloaded methods go here.

1;
__END__