#! /usr/bin/perl
use strict;
+use warnings;
use Data::Dumper;
package XML::TemplateSAX::Handler;
if (defined($match)) {
$self->SUPER::start_element($data);
-
+
+ # FIXME: we should match on something better than the name. But what?
push @{$self->{'stack'}}, [ $data->{'Name'}, $obj ];
#
$self->{'obj'} = XML::TemplateSAX::Buffer->new($match);
return;
}
+
+ #
+ # If someone tries to insert a full tree, do it, just like the character
+ # replacement above.
+ #
+ if (ref($match) eq 'XML::TemplateSAX::Buffer') {
+ $match->replay($self);
+ $self->{'obj'} = undef;
+ }
$self->{'obj'} = $match;
return;