4 |
push our @ISA, 'Message::DOM::Node', 'Message::IF::ProcessingInstruction'; |
push our @ISA, 'Message::DOM::Node', 'Message::IF::ProcessingInstruction'; |
5 |
require Message::DOM::Node; |
require Message::DOM::Node; |
6 |
|
|
|
## Spec: |
|
|
## |
|
|
|
|
7 |
sub ____new ($$$$) { |
sub ____new ($$$$) { |
8 |
my $self = shift->SUPER::____new (shift); |
my $self = shift->SUPER::____new (shift); |
9 |
($$self->{target}, $$self->{data}) = @_; |
($$self->{target}, $$self->{data}) = @_; |
69 |
|
|
70 |
sub node_type ($) { 7 } # PROCESSING_INSTRUCTION_NODE |
sub node_type ($) { 7 } # PROCESSING_INSTRUCTION_NODE |
71 |
|
|
|
## Spec: |
|
|
## <http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core.html#ID-F68D080> |
|
|
## Modified: <http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core.html#ID-1841493061> |
|
|
|
|
72 |
## The entire content exclude the target [DOM1, DOM2]. |
## The entire content exclude the target [DOM1, DOM2]. |
73 |
## Same as |ProcessingInstruction.data| [DOM3]. |
## Same as |ProcessingInstruction.data| [DOM3]. |
74 |
|
|
75 |
*node_value = \&data; |
*node_value = \&data; |
76 |
|
|
77 |
|
*text_content = \&node_value; |
78 |
|
|
79 |
package Message::IF::ProcessingInstruction; |
package Message::IF::ProcessingInstruction; |
80 |
|
|
81 |
package Message::DOM::Document; |
package Message::DOM::Document; |