ÿØÿàJFIFÿþ ÿÛC       ÿÛC ÿÀÿÄÿÄ"#QrÿÄÿÄ&1!A"2qQaáÿÚ ?Øy,æ/3JæݹÈ߲؋5êXw²±ÉyˆR”¾I0ó2—PI¾IÌÚiMö¯–þrìN&"KgX:Šíµ•nTJnLK„…@!‰-ý ùúmë;ºgµŒ&ó±hw’¯Õ@”Ü— 9ñ-ë.²1<yà‚¹ïQÐU„ہ?.’¦èûbß±©Ö«Âw*VŒ) `$‰bØԟ’ëXÖ-ËTÜíGÚ3ð«g Ÿ§¯—Jx„–’U/ÂÅv_s(Hÿ@TñJÑãõçn­‚!ÈgfbÓc­:él[ðQe 9ÀPLbÃãCµm[5¿ç'ªjglå‡Ûí_§Úõl-;"PkÞÞÁQâ¼_Ñ^¢SŸx?"¸¦ùY騐ÒOÈ q’`~~ÚtËU¹CڒêV  I1Áß_ÿÙpackage XML::XPath::Node::PI; $VERSION = '1.42'; use strict; use warnings; use vars qw/@ISA/; @ISA = ('XML::XPath::Node'); package XML::XPath::Node::PIImpl; use vars qw/@ISA/; @ISA = ('XML::XPath::NodeImpl', 'XML::XPath::Node::PI'); use XML::XPath::Node ':node_keys'; sub new { my $class = shift; my ($target, $data) = @_; my $pos = XML::XPath::Node->nextPos; my @vals; @vals[node_global_pos, node_target, node_data] = ($pos, $target, $data); my $self = \@vals; bless $self, $class; } sub getNodeType { PROCESSING_INSTRUCTION_NODE } sub isPINode { 1; } sub isProcessingInstructionNode { 1; } sub getTarget { my $self = shift; $self->[node_target]; } sub getData { my $self = shift; $self->[node_data]; } sub _to_sax { my $self = shift; my ($doch, $dtdh, $enth) = @_; # PI's not supported in PerlSAX 1 } sub string_value { my $self = shift; return $self->[node_data]; } sub toString { my $self = shift; return "[node_target] . " " . XML::XPath::Node::XMLescape($self->[node_data], ">") . "?>"; } 1; __END__ =head1 NAME PI - an XML processing instruction node =head1 API =head2 new ( target, data ) Create a new PI node. =head2 getTarget Returns the target =head2 getData Returns the data =cut