[ Index ]

PHP Cross Reference of Unnamed Project

title

Body

[close]

/se3-unattended/var/se3/unattended/install/linuxaux/opt/perl/lib/site_perl/5.10.0/XML/XPath/Node/ -> PI.pm (source)

   1  # $Id: PI.pm,v 1.4 2000/08/24 16:23:02 matt Exp $
   2  
   3  package XML::XPath::Node::PI;
   4  
   5  use strict;
   6  use vars qw/@ISA/;
   7  
   8  @ISA = ('XML::XPath::Node');
   9  
  10  package XML::XPath::Node::PIImpl;
  11  
  12  use vars qw/@ISA/;
  13  @ISA = ('XML::XPath::NodeImpl', 'XML::XPath::Node::PI');
  14  use XML::XPath::Node ':node_keys';
  15  
  16  sub new {
  17      my $class = shift;
  18      my ($target, $data) = @_;
  19      
  20          my $pos = XML::XPath::Node->nextPos;
  21          
  22          my @vals;
  23          @vals[node_global_pos, node_target, node_data] = 
  24                  ($pos, $target, $data);
  25      my $self = \@vals;
  26      bless $self, $class;
  27  }
  28  
  29  sub getNodeType { PROCESSING_INSTRUCTION_NODE }
  30  
  31  sub isPINode { 1; }
  32  sub isProcessingInstructionNode { 1; }
  33  
  34  sub getTarget {
  35      my $self = shift;
  36      $self->[node_target];
  37  }
  38  
  39  sub getData {
  40      my $self = shift;
  41      $self->[node_data];
  42  }
  43  
  44  sub _to_sax {
  45      my $self = shift;
  46      my ($doch, $dtdh, $enth) = @_;
  47      # PI's not supported in PerlSAX 1
  48  }
  49  
  50  sub string_value {
  51      my $self = shift;
  52      return $self->[node_data];
  53  }
  54  
  55  sub toString {
  56      my $self = shift;
  57      return "<?" . $self->[node_target] . " " . XML::XPath::Node::XMLescape($self->[node_data], ">") . "?>";
  58  }
  59  
  60  1;
  61  __END__
  62  
  63  =head1 NAME
  64  
  65  PI - an XML processing instruction node
  66  
  67  =head1 API
  68  
  69  =head2 new ( target, data )
  70  
  71  Create a new PI node.
  72  
  73  =head2 getTarget
  74  
  75  Returns the target
  76  
  77  =head2 getData
  78  
  79  Returns the data
  80  
  81  =cut


Generated: Tue Mar 17 22:47:18 2015 Cross-referenced by PHPXref 0.7.1