File Coverage

lib/YAX/Document.pm

Criterion	Covered	Total	%
statement	36	56	64.2
branch	2	2	100.0
condition			n/a
subroutine	14	21	66.6
pod	0	14	0.0
total	52	93	55.9

package YAX::Document;

use strict;

use YAX::Text;
use YAX::Element;
use YAX::Fragment;
use YAX::Constants qw/:all/;
use YAX::Query;

use overload '@{}' => \&children, '%{}' => \&elements, fallback => 1;

sub HASH () { 0 }
sub KIDS () { 1 }
#sub TYPE () { 3 }

sub new {
    my $class = shift;
    my $self = bless \[ { }, [ ], '' ], $class;
    return $self;
}

sub type { DOCUMENT_NODE }
sub name { '#document' }

sub document { $_[0] }

sub elements {
    my $self = shift;
    $$self->[HASH];
}

sub children {
    my $self = shift;
    $$self->[KIDS];
}

sub parent { undef }

#sub doctype {
#    my $self = shift;
#    $$self->[TYPE] = shift if @_;
#    $$self->[TYPE];
#}

sub set {
    my ( $self, $id, $elmt ) = @_;
    $self->elements->{$id} = $elmt;
}

sub get {
    my ( $self, $id ) = @_;
    return $self->elements->{$id};
}

sub root {
    my ( $self ) = @_;
    foreach my $node ( @$self ) {
        return $node if $node->type == ELEMENT_NODE;
    }
    return undef;
}

sub text {
    my ( $self, $text ) = @_;
    my $node = YAX::Text->new( $text );
    return $node;
}

sub element {
    my ( $self, $name, %atts ) = @_;
    my $node = YAX::Element->new( $name, %atts );
    return $node;
}

sub fragment {
    my $self = shift;
    my $frag = YAX::Fragment->new(@_);
    return $frag;
}

*query        = \&YAX::Element::query;
*append       = \&YAX::Element::append;
*replace      = \&YAX::Element::replace;
*remove       = \&YAX::Element::remove;
*insert       = \&YAX::Element::insert;
*_claim_child = \&YAX::Element::_claim_child;

sub as_string {
    my $self = shift;
    my @kids = @{ $self->children };
    my $kids = join('', map { $_->as_string } @{ $self->children });
    join( '', $kids );
}

1;

__END__