Add perl-sax/attribute[23] tests. Work directly.

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

diff --git a/perl-sax/attribute2.pl b/perl-sax/attribute2.pl
new file mode 100644 (file)
index 0000000..3821a33
--- /dev/null
+++ b/perl-sax/attribute2.pl
@@ -0,0 +1,13 @@
+#! /usr/bin/perl
+use XML::TemplateSAX;
+
+my $doc = XML::TemplateSAX::process_file('../xml/clone.xml', {
+       'color' => 'blue',
+       '#things' => XML::TemplateSAX::alternate('li/class', [
+               { 'li' => 'Raindrops on roses' },
+               { 'li' => 'Whiskers on kittens' },
+               { 'li' => 'Bright copper kettles' },
+               { 'li' => 'Warm, woolen mittens'},
+       ], 'odd', 'even')
+});
+print $doc;