#! /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 ];
#