File Coverage

blib/lib/XML/Hash.pm

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

package XML::Hash;

use warnings;
use strict;
use base qw/XML::Simple/;
use Carp;
use XML::DOM;
use File::Slurp;

# Config options
our %XMLIN_SIMPLE_OPTIONS = (
    ForceContent => 1,
    ContentKey   => 'text',
    KeepRoot     => 1,
    KeyAttr      => []
);

our %XMLOUT_SIMPLE_OPTIONS = (
    ContentKey => 'text',
    KeepRoot   => 1,
    KeyAttr    => []
);

our $VERSION = '0.95';

sub new {
    my $class = shift;

    if ( @_ % 2 ) {
        croak "Default options must be name=>value pairs (odd number supplied)";
    }

    my %raw_opt = @_;

    my %def_opt;

    while ( my ( $key, $val ) = each %raw_opt ) {
        my $lkey = lc($key);
        $def_opt{$lkey} = $val;
    }

    my $self = { def_opt => \%def_opt };

    $class = ref $class if ref $class;

    $self = bless( $self, $class );

    $self->_xml_handler( XML::Simple->new(%XMLIN_SIMPLE_OPTIONS) );
    return $self;
}

sub _xml_handler {
	my ($self, $handler) = @_;

	$self->{'xml_handler'} ||= $handler;

	return $self->{'xml_handler'};
}
sub fromDOMtoHash {
    my ( $self, $xml ) = @_;

    croak "You must specify a XML::DOM::Document has the XML parameter" unless ( ref($xml) eq "XML::DOM::Document" );

    return $self->fromXMLStringtoHash( $xml->toString() );
}

sub fromHashtoDOM {
    my ( $self, $hash ) = @_;

    croak "You must specify a Hash to converto into XML" unless ( ref($hash) eq "HASH" );

    my $xml_string = $self->fromHashtoXMLString($hash);
    return XML::DOM::Parser->new()->parse($xml_string);
}

sub fromXMLStringtoHash {
    my ( $self, $xml_str ) = @_;

    croak "You must specify a XML string" unless ( defined $xml_str );

    return $self->_xml_handler()->XMLin( $xml_str, %XMLIN_SIMPLE_OPTIONS );
}

sub fromHashtoXMLString {
    my ( $self, $hash ) = @_;

    croak "You must specify a Hash to converto into XML" unless ( ref($hash) eq "HASH" );

    return $self->_xml_handler()->XMLout( $hash, %XMLOUT_SIMPLE_OPTIONS );

}

#sub fromXMLFiletoHash {
#    my ( $self, $xml_str ) = @_;
#
#    croak "You must specify a filename" unless ( defined $xml_str );

#    return $self->xml_handler()->XMLin( $xml_str, %XMLIN_SIMPLE_OPTIONS );
#}

#sub fromHashtoXMLFile {
#    my ( $self, $hash, $filename ) = @_;

#    croak "You must specify a Hash to convert into XML file" unless ( ref($hash) eq "HASH" and $filename);

#	my $output = $self->xml_handler()->XMLout( $hash, %XMLOUT_SIMPLE_OPTIONS );

#	write_file($filename, $output);

#	return $output;
#}

1;    # End of XML::Hash

__END__