File Coverage

lib/XML/XMetaL/Mock/DOMElement.pm

Criterion	Covered	Total	%
statement	48	48	100.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	13	13	100.0
pod	0	1	0.0
total	63	67	94.0

package XML::XMetaL::Mock::DOMElement::Tie;

use Tie::Hash;
use base 'Tie::StdHash';

sub TIEHASH {
    my ($class, $object) = @_;
    my $self = bless $object, $class;
    return $self;
}

#sub STORE {
#    my ($self, $key, $value) = @_;
#    $self->{$key} = $value;
#    $self->{length} = length $value if $key eq 'data';
#}

package XML::XMetaL::Mock::DOMElement;

use 5.008;
use strict;
use warnings;

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

use base ('Tie::StdHash', 'XML::XMetaL::Mock::DOMNode');

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

our @keys = qw(
    localName
    namespaceURI
    prefix
    tagName
);


sub new {
    my ($class, %args) = @_;
    my %self;
    my $self;
    eval {
        my %properties;
        @properties{@keys} = @args{@keys};
        my $super_class = $class->SUPER::new(%args);
        %properties = (
            %$super_class,
            %properties,
        );
        tie %self, 'XML::XMetaL::Mock::DOMElement::Tie', \%properties;
        $self = bless \%self, ref($class) || $class;
        lock_keys(%$self, keys %$self);

    };
    croak $@ if $@;
    return $self;
}

#getAttribute
#getAttributeNS
#getAttributeNode
#getAttributeNodeNS
#getElementsByTagName
#getElementsByTagNameNS
#hasAttribute
#hasAttributeNS
#normalize
#removeAttribute
#removeAttributeNS
#removeAttributeNode
#setAttribute
#setAttributeNS
#setAttributeNode
#setAttributeNodeNS


1;
__END__