File Coverage

blib/lib/XML/Elemental/Element.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	7	12	58.3
condition	2	4	50.0
subroutine	8	8	100.0
pod	6	6	100.0
total	47	54	87.0

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

sub new {
    my $self = bless {}, $_[0];
    $self->{attribute} = {};
    $self->{contents}  = [];
    return $self;
}

sub text_content {
    return '' unless defined $_[0]->{contents};
    return join('',
        map { $_->can('text_content') ? $_->text_content : $_->data }
          @{$_[0]->contents});
}

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

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

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

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

1;

__END__