File Coverage

blib/lib/Pod/GroveBuilder.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

#
# Copyright (C) 1997 Ken MacLeod
# See the file COPYING for distribution terms.
#
# $Id: GroveBuilder.pm,v 1.1.1.1 1998/01/02 21:31:15 ken Exp $
#

package Pod::GroveBuilder;

use strict;
use vars qw($VERSION @ISA);

use SGML::SPGrove;

@ISA = qw(Pod::Parser);
$VERSION = '0.01';

sub new {
    my $type = shift;
    my $sysid = shift;

    my $parser = $type->SUPER::new();

    if (ref $sysid) {
	$parser->parse_from_filehandle ($sysid);
    } else {
	$parser->parse_from_file ($sysid);
    }

    return $parser->{_grove};
}

sub command {
    my ($parser, $command, $paragraph, $attributes) = @_;

}

sub verbatim {
    my ($parser, $paragraph) = @_;
}

sub textblock {
    my ($parser, $paragraph) = @_;
}

sub interior_sequence {
    my ($parser, $sequence, $seq_argument, $attributes) = @_;
}

1;
__END__