Add a new "attribute-empty" test.

[xml-template] / perl / attribute-empty.pl

diff --git a/perl/attribute-empty.pl b/perl/attribute-empty.pl
new file mode 100644 (file)
index 0000000..2183a40
--- /dev/null
+++ b/perl/attribute-empty.pl
@@ -0,0 +1,9 @@
+#! /usr/bin/perl
+use XML::Template;
+
+my $doc = XML::Template::process_file('../xml/clone.xml', {
+       'color' => 'blue',
+       '#things' => XML::Template::alternate('li/class', [
+       ], 'odd', 'even')
+});
+print $doc->toString;