4 |
push our @ISA, 'Message::DOM::Node', 'Message::IF::DocumentFragment'; |
push our @ISA, 'Message::DOM::Node', 'Message::IF::DocumentFragment'; |
5 |
require Message::DOM::Node; |
require Message::DOM::Node; |
6 |
|
|
|
## Spec: |
|
|
## <http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core.html#ID-B63ED1A3> |
|
|
|
|
7 |
sub ____new ($$) { |
sub ____new ($$) { |
8 |
my $self = shift->SUPER::____new (shift); |
my $self = shift->SUPER::____new (shift); |
9 |
$$self->{child_nodes} = []; |
$$self->{child_nodes} = []; |
48 |
} |
} |
49 |
} # AUTOLOAD |
} # AUTOLOAD |
50 |
|
|
51 |
## The |Node| interface - attribute |
## |Node| attributes |
|
|
|
|
## Spec: |
|
|
## <http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core.html#ID-F68D095> |
|
|
## <http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/core.html#ID-1950641247> |
|
52 |
|
|
53 |
sub node_name ($) { |
sub node_name ($) { |
54 |
return '#document-fragment'; |
return '#document-fragment'; |