File Coverage

lib/XML/XMetaL/Mock/DOMText.pm

Criterion	Covered	Total	%
statement	51	51	100.0
branch	3	4	75.0
condition	1	3	33.3
subroutine	14	14	100.0
pod	0	1	0.0
total	69	73	94.5

package XML::XMetaL::Mock::DOMText::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::DOMText;

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(
    data
    length
);


sub new {
    my ($class, %args) = @_;
    #my $self;
    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::DOMText::Tie', \%properties;
        $self = bless \%self, ref($class) || $class;
        lock_keys(%$self, keys %$self);

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



1;
__END__