File Coverage

blib/lib/XML/Elemental/Characters.pm

Criterion	Covered	Total	%
statement	10	10	100.0
branch	2	4	50.0
condition			n/a
subroutine	4	4	100.0
pod	2	2	100.0
total	18	20	90.0

package XML::Elemental::Characters;
use strict;
use base qw( XML::Elemental::Node );

sub data {
    $_[0]->{data} = $_[1] if @_ > 1;
    return $_[0]->{data};
}

sub parent {
    $_[0]->{parent} = $_[1] if @_ > 1;
    return $_[0]->{parent};
}

1;

__END__