File Coverage

lib/XML/DOM/Lite/Document.pm

Criterion	Covered	Total	%
statement	54	63	85.7
branch	4	6	66.6
condition	3	3	100.0
subroutine	19	22	86.3
pod	0	14	0.0
total	80	108	74.0

package XML::DOM::Lite::Document;
use warnings;
use strict;

use strict;
use warnings;

use Carp qw (carp croak cluck);

use XML::DOM::Lite::Constants qw(:all);
use XML::DOM::Lite::XPath;

use base qw(XML::DOM::Lite::Node);

sub new {
    my ($class) = @_;
    return bless $class->SUPER::new({
	nodeName   => '#document',
	nodeType   => DOCUMENT_NODE,
	childNodes => [ ],
	elements   => { },
    }), $class;
}

sub parentNode { undef }

sub appendChild {
    my ($self, $node) = @_;
    if (not $self->{documentElement} and ($node->nodeType == ELEMENT_NODE)) {
	$self->{documentElement} = $node;
    }
    return $self->SUPER::appendChild($node);
}

sub setElementById {
    my ($self, $id, $node) = @_;
    $self->{elements}->{$id} = $node;
}

sub getElementById {
    my ($self, $id) = @_;
    return $self->{elements}->{$id} if exists $self->{elements}->{$id};
}

sub createElement {
    my ($self, $tagName) = @_;
    my $node = XML::DOM::Lite::Node->new({
	nodeName => $tagName,
        tagName => $tagName,
        nodeType => ELEMENT_NODE,
    });
    $node->ownerDocument($self);
    return $node;
}

sub createAttribute {
    my ($self, $nodeName) = @_;
    my $attr = XML::DOM::Lite::Node->new({
	nodeName => $nodeName,
        nodeType => ATTRIBUTE_NODE,
    });
    $attr->ownerDocument($self);
    return $attr;
}

sub createTextNode {
    my ($self, $str) = @_;
    my $node = XML::DOM::Lite::Node->new({
	nodeName => '#text',
        nodeType => TEXT_NODE,
        nodeValue => $str,
    });
    $node->ownerDocument($self);
    return $node;
}

sub createDocumentFragment {
    my $self = shift;
    my $frag = XML::DOM::Lite::Node->new({
        nodeName => '#document-fragment',
        nodeType => DOCUMENT_FRAGMENT_NODE,
        ownerDocument => $self,
    });
    $frag->ownerDocument($self);
    return $frag;
}

sub documentElement {
    my $self = shift;
    if (@_) {
	$self->{documentElement} = shift;
    }
    $self->{documentElement};
}

sub selectNodes {
    my ($self, $path) = @_;
    return XML::DOM::Lite::XPath->evaluate($path, $self);
}

sub selectSingleNode {
    my ($self, $path) = @_;
    return $self->selectNodes($path)->[0];
}

sub elements {
    return $_[0]->{elements};
}

sub xml {
    my $self = shift;
    my $serializer = XML::DOM::Lite::Serializer->new;
    return $serializer->serializeToString($self->documentElement);
}

1;
__END__