Add perl-sax/structure test, blows up (as expected).

[xml-template] / perl-sax / structure.pl

diff --git a/perl-sax/structure.pl b/perl-sax/structure.pl
new file mode 100644 (file)
index 0000000..f76fda5
--- /dev/null
+++ b/perl-sax/structure.pl
@@ -0,0 +1,11 @@
+#! /usr/bin/perl
+use XML::TemplateSAX;
+
+my $doc = XML::TemplateSAX::process_file('../xml/structure.xml', {
+       '#outer' => [
+               { '#inner' => 'One' },
+               { '#inner' => 'Two' },
+               { '#inner' => 'Three' },
+       ]
+});
+print $doc;