| 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; |