[Summary view] [Print] [Text view]

   1  # $Id: Text.pm,v 1.5 2000/09/05 13:05:47 matt Exp $
   2  
   3  package XML::XPath::Node::Text;
   4  
   5  use strict;
   6  use vars qw/@ISA/;
   7  
   8  @ISA = ('XML::XPath::Node');
   9  
  10  package XML::XPath::Node::TextImpl;
  11  
  12  use vars qw/@ISA/;
  13  @ISA = ('XML::XPath::NodeImpl', 'XML::XPath::Node::Text');
  14  use XML::XPath::Node ':node_keys';
  15  
  16  sub new {
  17      my $class = shift;
  18      my ($text) = @_;
  19      
  20          my $pos = XML::XPath::Node->nextPos;
  21          
  22          my @vals;
  23          @vals[node_global_pos, node_text] = ($pos, $text);
  24      my $self = \@vals;
  25          
  26      bless $self, $class;
  27  }
  28  
  29  sub getNodeType { TEXT_NODE }
  30  
  31  sub isTextNode { 1; }
  32  
  33  sub appendText {
  34      my $self = shift;
  35      my ($text) = @_;
  36      $self->[node_text] .= $text;
  37  }
  38  
  39  sub getNodeValue {
  40      my $self = shift;
  41      $self->[node_text];
  42  }
  43  
  44  sub getData {
  45      my $self = shift;
  46      $self->[node_text];
  47  }
  48  
  49  sub setNodeValue {
  50      my $self = shift;
  51      $self->[node_text] = shift;
  52  }
  53  
  54  sub _to_sax {
  55      my $self = shift;
  56      my ($doch, $dtdh, $enth) = @_;
  57      
  58      $doch->characters( { Data => $self->getValue } );
  59  }
  60  
  61  sub string_value {
  62      my $self = shift;
  63      $self->[node_text];
  64  }
  65  
  66  sub toString {
  67      my $self = shift;
  68      XML::XPath::Node::XMLescape($self->[node_text], "<&");
  69  }
  70  
  71  1;
  72  __END__
  73  
  74  =head1 NAME
  75  
  76  Text - an XML text node
  77  
  78  =head1 API
  79  
  80  =head2 new ( text )
  81  
  82  Create a new text node.
  83  
  84  =head2 getValue / getData
  85  
  86  Returns the text
  87  
  88  =head2 string_value
  89  
  90  Returns the text
  91  
  92  =head2 appendText ( text )
  93  
  94  Adds the given text string to this node.
  95  
  96  =cut