#! /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' },
		undef,
		{ 'li' => 'Bright copper kettles' },
		{ 'li' => 'Warm, woolen mittens'},
	], 'odd', 'even')
});
print $doc;
