File Coverage

blib/lib/SGML/Grove.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

#
# Copyright (C) 1997 Ken MacLeod
# See the file COPYING for distribution terms.
#
# $Id: Grove.pm,v 1.1 1998/01/18 00:21:13 ken Exp $
#

package SGML::Grove;

use SGML::Element;
use SGML::SData;
use SGML::PI;
use SGML::Notation;
use SGML::Entity;
use SGML::ExtEntity;
use SGML::SubDocEntity;

use strict;
use vars qw($VERSION @ISA);
use Class::Visitor;

visitor_class 'SGML::Grove', 'Class::Visitor::Base',
    [
     'errors' => '@',		# [0]
     'entities' => '%',		# [1]
     'notations' => '%',	# [2]
     'contents' => '@',		# [3]
];

package SGML::Grove;

$VERSION = '2.03';

sub root {
    my $self = shift;

    return $self->contents->[0];
}

# synonomous to `accept'
sub accept_gi {
    my $self = shift;
    my $visitor = shift;

    $visitor->visit_SGML_Grove ($self, @_);
}

sub children_accept_gi {
    my $self = shift;

    $self->root->accept_gi (@_);
}

1;
__END__