view release on metacpan or  search on metacpan

lib/Rinchi/DOM.pm  view on Meta::CPAN

=over 4

=item new

Constructor for Rinchi::DOM.

=cut

use vars qw( $_RD_document
	     $_RD_cur_node
	     $_RD_cdata_value
	     $_RD_in_cdata
	   );

=item new

Constructor for Rinchi::DOM.

=cut

sub new {
  my ($class, %args) = @_;

lib/Rinchi/DOM.pm  view on Meta::CPAN

  $_RD_cur_node = $elem;
}

sub _endElementHandler() {
  my ($tagName) = @_;

  $_RD_cur_node = $_RD_cur_node->getParentNode();
}

sub _characterDataHandler() {
  my ($cdata) = @_;

  if($_RD_in_cdata) {
    $_RD_cdata_value .= $cdata;
  } else {
    my $text = $_RD_document->createTextNode($cdata);
    $_RD_cur_node->appendChild($text);
  }
}

sub _processingInstructionHandler() {
  my ($target,$data) = @_;

  my $pi = $_RD_document->createProcessingInstruction($target, $data);
  $_RD_cur_node->appendChild($pi);
}

sub _commentHandler() {
  my ($string) = @_;

  my $comment = $_RD_document->createComment($string);
  $_RD_cur_node->appendChild($comment);
}

sub _startCdataHandler() {

  $_RD_cdata_value = "";
  $_RD_in_cdata = 1;
}

sub _endCdataHandler() {

  my $cdata = $_RD_document->createCDATASection($_RD_cdata_value);
  $_RD_cur_node->appendChild($cdata);
  $_RD_in_cdata = 0;
}

sub _xmlDeclHandler() {
  my ($version, $encoding, $standalone) = @_;

  my $xmldecl = $_RD_document->createXMLDecl($version, $encoding, $standalone);
  $_RD_document->setXMLDecl($xmldecl);
}

=item sub process_to_DOM($processor, $path, [\@args])