git.sesse.net Git - xml-template/blob - perl/attribute-empty.pl

   1 #! /usr/bin/perl
   2 use XML::Template;
   3
   4 my $doc = XML::Template::process_file('../xml/clone.xml', {
   5         'color' => 'blue',
   6         '#things' => XML::Template::alternate('li/class', [
   7         ], 'odd', 'even')
   8 });
   9 print $doc->toString;