#!/usr/bin/perl --
use strict; use warnings;
use XML::Twig;
my $objectsTwig = XML::Twig->new;
$objectsTwig->xparse('');
print $objectsTwig ->toString, "\n";
my $OBJECT_ROOT = $objectsTwig->root;
for( 1 .. 10 ){
XML::Twig::Elt->new(
'object'
)->paste(
'last_child',
$OBJECT_ROOT
);
}
print $objectsTwig ->toString, "\n";
__END__
####
#!/usr/bin/perl --
use strict; use warnings;
use XML::Twig;
my $objectsTwig = XML::Twig->new;
$objectsTwig->xparse('');
print $objectsTwig ->toString, "\n";
my $OBJECT_ROOT = $objectsTwig->root;
for( 1 .. 10 ){
my $object = XML::Twig->new;
$object->xparse('');
my $orphan = $object->root;
$object->set_root(undef); ### crucial
$orphan->cut;
$orphan->paste('last_child', $OBJECT_ROOT );
}
print $objectsTwig ->toString, "\n";
__END__