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' )
);
####
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',
],
),
]
),
);
####
my @nodes = (
'
acme products
some orphan text that needs to be in the output',
Node->new( use => [ 'actions/', Node->new( qd => 'action' ), '/main.aXML' ] ),
'some more orphan text
',
)