use strict;
use warnings;
use XML::LibXML;

my %TV = (
    flintstones => {
        series   => "flintstones",
        nights   => [ "monday", "thursday", "friday" ],
        members  => [
            { name => "fred",    role => "husband", age  => 36, },
            { name => "wilma",   role => "wife",    age  => 31, },
            { name => "pebbles", role => "kid",     age  =>  4, },
        ],
    },    jetsons     => {
        series   => "jetsons",
        nights   => [ "wednesday", "saturday" ],
        members  => [
            { name => "george",  role => "husband", age  => 41, },
            { name => "jane",    role => "wife",    age  => 39, },
            { name => "elroy",   role => "kid",     age  =>  9, },
        ],
    },

    simpsons    => {
        series   => "simpsons",
        nights   => [ "monday" ],
        members  => [
            { name => "homer", role => "husband", age => 34, },
            { name => "marge", role => "wife",    age => 37, },
            { name => "bart",  role => "kid",     age => 11, },
        ],
    },
);

my $xmlString = HASH2XML(\%TV,'TV_SERIES');

print $xmlString;

##############################################################################################

sub HASH2XML{
	my ($inHashRef)  = $_[0];
	my ($inName)     = $_[1];
	if(!defined $inName){$inName = 'rootNode';}
	my $doc      = XML::LibXML::Document->new('1.0', 'utf-8');	# to create XML doc
	my $rootNode = $doc->createElement("$inName");	# to create xml root node
	$rootNode->setAttribute('Profile_id'=> "$inName");	# add some Attribute to the node
	_OBJ2XML_($doc,$rootNode,$inHashRef,$inName);
	$doc->setDocumentElement($rootNode);
	# print $doc->toString();
	return $doc->toString(1);
	
}

sub _OBJ2XML_{
	my ($doc)    = $_[0];
	my ($inNode) = $_[1];
	my ($inRef)  = $_[2];
	my ($inName) = $_[3];
	if(!defined $inName){$inName = 'Node';}
	if(ref($inRef) eq 'HASH'){
		for my $key (sort keys %{$inRef}) {
			if(ref($inRef->{$key}) eq 'HASH'){
				my $tag = $doc->createElement($key);
				# $tag->setAttribute('dataType'=> "HASH");
				$inNode->appendChild($tag);
				_OBJ2XML_($doc,$tag,$inRef->{$key},$key);
			}else{
				_OBJ2XML_($doc,$inNode,$inRef->{$key},$key);
			}
		}
	}elsif(ref($inRef) eq 'ARRAY'){
		my $Len = @{$inRef};
		for(my $i = 0; $i < $Len; $i++){
			if(ref(@{$inRef}[$i]) eq 'HASH' or ref(@{$inRef}[$i]) eq 'ARRAY'){
				my $tag = $doc->createElement($inName);
				# $tag->setAttribute('dataType'=> "ARRAY");
				$inNode->appendChild($tag);
				_OBJ2XML_($doc,$tag,@{$inRef}[$i],$inName);
			}else{
				_OBJ2XML_($doc,$inNode,@{$inRef}[$i],$inName);
			}
		}
	}elsif(ref($inRef) eq 'CODE'){
		print "--End to CODE ref @ LINE:".__LINE__."\n";
		return 0;
		
	}elsif(ref($inRef) eq 'SCALAR'){
		print "--End to SCALAR ref @ LINE:".__LINE__."\n";
		return 0;
	}else{
		my $tag = $doc->createElement($inName);
		# $tag->setAttribute('dataType'=> "data");
		$tag->appendTextNode($inRef);
		$inNode->appendChild($tag);
		return 0;
	}
	return 0;
}