Add a trivial new “pass through” test.

[xml-template] / perl / passthru.pl

diff --git a/perl/passthru.pl b/perl/passthru.pl
new file mode 100644 (file)
index 0000000..2143306
--- /dev/null
+++ b/perl/passthru.pl
@@ -0,0 +1,5 @@
+#! /usr/bin/perl
+use XML::Template;
+
+my $doc = XML::Template::process_file('../xml/passthru.xml', {});
+print $doc->toString;