NAME

SGML::ElementMap - Perl extension for SGML/XML oriented processing

SYNOPSIS

  use SGML::ElementMap;
  $engine = new SGML::ElementMap;
  $grove_builder = XML::Grove::Builder->new;
  $parser = XML::ESISParser->new ( Handler => $grove_builder , IsSGML=>1 );

  $engine->cdata('',sub {
      my ($eng,$obj) = @_;
      print $obj->{'Data'};
  });
  $engine->element('HEAD', sub {
      my ($eng,$element) = @_;
      print "<h2>";
      $eng->process_content;
      print "</h2>\n<hr>\n";
  });

  $document = eval { $parser->parse ( Source => { SystemId => $filename }) };
  $engine->process_grove($document);

DESCRIPTION

This module drives an SGML::ElementMap sweep over an XML::Grove object.

AUTHOR

Robert Braddock, robert@concordant-thought.com

NAME

SYNOPSIS

DESCRIPTION

AUTHOR

SEE ALSO