note
Boldra
Have you considered leaving the untagged content as plain text?
<c>
my @nodes = (
bless ( {
'tag' => 'html',
'data' => [ bless ( {
'tag' => 'head',
'data' => bless ( {
'tag' => 'title',
'data' => 'acme products' }, 'Node' ),
bless ( {
'tag' => 'body',
'data' => [ 'some orphan text that needs to be in the output',
bless ( {
'tag' => 'use'
'data' => [ bless ( {
'tag' => 'orphan',
'data' => 'action/'}, 'Node' ),
bless ( {
'tag' => 'qd'
'data' => 'action' }, 'Node' ),
bless ( {
'tag' => 'orphan',
'data' => '/main.aXML' }, 'Node' )
] }, 'Node' )
'some more orphan text',
] }, 'Node' )
] }, 'Node' )
);
</c>
and it may interest you that with Moose buildargs, you can easily set up the Node constructor to expect a tag and data, e.g. <tt>Node->new( qd => 'action' );</tt>. The output of Data::Dumper would still contain the <tt>bless { }, 'Node'</tt> syntax, making it a good place to do debugging and testing.
<c>
my @nodes = (
Node->new(
html => [
Node->new(
head => Node->new( title => 'acme products' ),
),
Node->new(
body => [
'some orphan text that needs to be in the output',
Node->new( use => [
'actions/',
Node->new( qd => 'action'),
'/main.aXML',
),
'some more orphan text',
],
),
]
),
);
</c>
but then why make nodes out of plain html if you have no action planned for them? Checking whether a tag is implemented during parsing is going to save you headaches later.
<c>
my @nodes = (
'<html>
<head><title>acme products</title></head>
<body>
some orphan text that needs to be in the output',
Node->new( use => [ 'actions/', Node->new( qd => 'action' ), '/main.aXML' ] ),
'some more orphan text
</body>
</html>',
)
</c>
with which <tt>print @nodes</tt> would just <i>do the right thing</i>.
915797
918040