File Coverage

lib/Document/AST/Tree.pm

Criterion	Covered	Total	%
statement	3	13	23.0
branch			n/a
condition			n/a
subroutine	1	6	16.6
pod	0	5	0.0
total	4	24	16.6

package Document::AST::Tree;
use base 'Document::AST';

sub init {
    my $self = shift;
    $self->{output} = [];
}

sub insert {
    push @{$_[0]{output}[-1][-1]}, @{$_[1]->{output}};
}

sub begin_node {
    push @{$_[0]->{output}}, [$_[1], []];
}

sub text_node {
    push @{$_[0]->{output}}, $_[1];
}

sub end_node {
}

1;