File Coverage

blib/lib/XML/FromPerl.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::FromPerl;

our $VERSION = '0.01';

use 5.010;
use strict;
use warnings;

use XML::LibXML;

require Exporter;
our @ISA = qw(Exporter);

our @EXPORT_OK = qw(xml_from_perl xml_node_from_perl);

sub xml_node_from_perl {
    my $doc = shift;
    my $data = shift;

    if (ref $data eq 'ARRAY') {
        my $e = $doc->createElement($data->[0]);
        my $one = $data->[1];
        my $has_attrs = ref $one eq 'HASH';
        if ($has_attrs) {
            my @keys = keys %$one;
            @keys = sort @keys unless tied %$one;
            for (@keys) {
                if (defined (my $v = $one->{$_})) {
                    $e->setAttribute($_, $v);
                }
            }
        }
        $e->appendChild(xml_node_from_perl($doc, $data->[$_]))
            for (($has_attrs ? 2 : 1) .. $#$data);

        return $e;
    }
    $doc->createTextNode("$data");
}

sub xml_from_perl {
    my $data = shift;
    my $doc = XML::LibXML::Document->new(@_);
    my $root = xml_node_from_perl($doc, $data);
    $doc->setDocumentElement($root);
    $doc
}

1;
__END__