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


SEE ALSO

perl(1), SGML::ElementMap(3), XML::Grove(3), Data::Grove(3)