File Coverage

lib/XML/XMetaL/Mock/DOMNode.pm

Criterion	Covered	Total	%
statement	47	50	94.0
branch	3	6	50.0
condition	2	8	25.0
subroutine	11	12	91.6
pod	0	3	0.0
total	63	79	79.7

package XML::XMetaL::Mock::DOMNode;

use 5.008;
use strict;
use warnings;

use Carp;
use Hash::Util qw(lock_keys);

use XML::XMetaL::Mock::DOMNodeList;

use constant TRUE  => 1;
use constant FALSE => 0;

our @keys = qw(
    nodeID
    attributes
    childNodes
    firstChild
    lastChild
    nextSibling
    nodeName
    nodeType
    nodeValue
    ownerDocument
    parentNode
    previousSibling
);

our %node_types = (
    DOMElement                => 1,
    DOMAttr                   => 2,
    DOMText                   => 3,
    DOMCDATASection           => 4,
    DOMEntityReference        => 5,
    DOMEntity                 => 6,
    DOMProcessingInstruction  => 7,
    DOMComment                => 8,
    DOMDocument               => 9,
    DOMDocumentType           => 10,
    DOMDocumentFragment       => 11,
    DOMNotation               => 12,
    DOMCharacterReference     => 505,
);

sub new {
    my ($class, %args) = @_;
    my $self;
    eval {
        my %properties;
        @properties{@keys} = @args{@keys};
        $self = bless \%properties, ref($class) || $class;
        #lock_keys(%$self, @keys);
        $self->{childNodes} = XML::XMetaL::Mock::DOMNodeList->new();
        $self->_set_node_type();
    };
    croak $@ if $@;
    return $self;
}

sub _set_node_type {
    my ($self) = @_;
    my $class = ref $self;
    my ($key) = $class =~ /([^:]+)$/;
    croak "Node name ".($key || "FALSE")." does not exist"
        unless exists $node_types{$key};
    my $node_type = $node_types{$key};
    $self->{nodeType} = $node_type;
}

sub appendChild {
    eval {
        my $self = shift @_;
        my XML::XMetaL::Mock::DOMNode     $child_node = shift(@_) || croak("Missing argument");
        my XML::XMetaL::Mock::DOMNodeList $child_node_list = $self->{childNodes};
        $child_node->{parentNode} = $self;
        $child_node_list->add($child_node);
    };
    croak $@ if $@;
}

#cloneNode

sub hasChildNodes {
    my $self = shift @_;
    my XML::XMetaL::Mock::DOMNodeList $child_node_list = $self->{childNodes};
    return $child_node_list->hasChildNodes();
}

#insertBefore
#removeChild
#replaceChild


1;
__END__