File Coverage

blib/lib/XML/Malware.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package XML::Malware;

use strict;
use warnings;

our $VERSION = '0.01';
$VERSION = eval $VERSION;  # see L

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

my $type = pack_type 'http://xml/metadataSharing.xsd', 'malwareMetaData';
XML::Compile->addSchemaDirs(__FILE__);
use constant MYNS => 'http://xml/metadataSharing.xsd';
XML::Compile->knownNamespace(&MYNS => 'metadataSharing.xsd');

# Preloaded methods go here.

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

sub in {
    my $self = shift;
    my $xml = shift;
    return(undef) unless($xml);

    my $s = XML::Compile::Schema->new();
    $s->importDefinitions(MYNS);

    my $read = $s->compile(READER => $type);
    my $h = $read->($xml);
    return(undef) unless($h && ref($h) eq 'HASH');
    $self->_hash($h);
    return($self->_hash());
}

sub out {
    my $self = shift;
    my $s       = XML::Compile::Schema->new();
    $s->importDefinitions(MYNS);
    my $doc    = XML::LibXML::Document->new('1.0', 'UTF-8');
    my $write  = $s->compile(WRITER => $type);
    my $xml    = $write->($doc, $self->_hash());
    return $xml->toString();
}

# accessors

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

1;
__END__