|
## NOTE: This module will be renamed as Document.pm. |
|
|
|
|
1 |
package Message::DOM::Document; |
package Message::DOM::Document; |
2 |
use strict; |
use strict; |
3 |
our $VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r}; |
our $VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r}; |
1203 |
## TODO: This serializer is currently not conformant to HTML5 spec. |
## TODO: This serializer is currently not conformant to HTML5 spec. |
1204 |
require Whatpm::XMLSerializer; |
require Whatpm::XMLSerializer; |
1205 |
my $r = ''; |
my $r = ''; |
1206 |
for (@{$self->child_nodes}) { |
for my $node (@{$self->child_nodes}) { |
1207 |
$r .= ${ Whatpm::XMLSerializer->get_outer_xml ($_, sub { |
$r .= ${ Whatpm::XMLSerializer->get_outer_xml ($node, sub { |
1208 |
## TODO: INVALID_STATE_ERR |
## TODO: INVALID_STATE_ERR |
1209 |
}) }; |
}) }; |
1210 |
} |
} |