Lines 217-223
sub _read_from_dom_node {
Link Here
|
217 |
my ($class, $node, $config) = @_; |
217 |
my ($class, $node, $config) = @_; |
218 |
|
218 |
|
219 |
if ($node->nodeType == XML_TEXT_NODE) { |
219 |
if ($node->nodeType == XML_TEXT_NODE) { |
220 |
$config->{content} = $node->textContent; |
220 |
$config->{_content} = $node->textContent; |
221 |
} elsif ($node->nodeType == XML_ELEMENT_NODE) { |
221 |
} elsif ($node->nodeType == XML_ELEMENT_NODE) { |
222 |
my $subconfig = {}; |
222 |
my $subconfig = {}; |
223 |
|
223 |
|
Lines 239-247
sub _read_from_dom_node {
Link Here
|
239 |
delete $subconfig->{id}; |
239 |
delete $subconfig->{id}; |
240 |
} else { |
240 |
} else { |
241 |
my @keys = keys %$subconfig; |
241 |
my @keys = keys %$subconfig; |
242 |
if (1 == scalar @keys && $keys[0] eq 'content') { |
242 |
if (1 == scalar @keys && $keys[0] eq '_content') { |
243 |
# An element with no attributes and no child elements becomes its text content |
243 |
# An element with no attributes and no child elements becomes its text content |
244 |
$subconfig = $subconfig->{content}; |
244 |
$subconfig = $subconfig->{_content}; |
245 |
} elsif (0 == scalar @keys) { |
245 |
} elsif (0 == scalar @keys) { |
246 |
# An empty element becomes an empty string |
246 |
# An empty element becomes an empty string |
247 |
$subconfig = ''; |
247 |
$subconfig = ''; |
248 |
- |
|
|