summaryrefslogtreecommitdiff
path: root/lib/Tree/Template/Declare/LibXML.pm
blob: 7be3fe8e5268a28751745794600270ff0dc2db52 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
package Tree::Template::Declare::LibXML; 
use strict;
use warnings;
use Carp;
use XML::LibXML;
 
sub new {
    my ($class)=@_;
 
    return bless {},$class;
}
 
sub new_tree {
    my ($self)=@_;
 
    return XML::LibXML::Document->new();
}
 
sub finalize_tree {
    my ($self,$tree)=@_;
 
    return $tree;
}
 
sub new_node {
    my ($self)=@_;
 
    return XML::LibXML::Element->new('');
}
 
sub add_child_node {
    my ($self,$parent,$child)=@_;
 
    my $doc=$parent->ownerDocument;
    $child=$doc->adoptNode($childif $doc;
 
    if ($parent->isa('XML::LibXML::Document')) {
        $parent->setDocumentElement($child);
    }
    else {
        $parent->appendChild($child);
    }
    return $parent;
}
 
sub set_node_name {
    my ($self,$node,$name)=@_;
 
    return $node->setNodeName($name);
}
 
sub set_node_attributes {
    my ($self,$node,$attrs)=@_;
 
    while (my ($name,$val)=each %$attrs) {
        $node->setAttribute($name$val);
    }
    return;
}
 
1;