view release on metacpan or  search on metacpan

Diff.pm  view on Meta::CPAN

  } elsif( $nodeType == 3 ) {
    #$self->_debug( "- text node -" );
    #     XML_TEXT_NODE=              3,
    # text node hashes are their text value
    $signature = 'TEXT';
    $thumbprint = $signature.$node->textContent();
    $weight    = length($thumbprint);

  } elsif( $nodeType == 4 ) {
    #$self->_debug( "- cdata section -" );
    #     XML_CDATA_SECTION_NODE=     4,
    # cdata section
    $signature  = 'CDATA';
    $thumbprint = $signature.$node->textContent();
    $weight     = length($thumbprint);

  } elsif( $nodeType == 7 ) {
    #$self->_debug( "- processing instruction -" );
    #     XML_PI_NODE=                7,
    # processing instruction
    $signature = 'PI';
    $thumbprint = $signature;