git.sesse.net Git - xml-template/blob - perl/attribute2.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                 { 'li' => 'Raindrops on roses' },
   8                 { 'li' => 'Whiskers on kittens' },
   9                 { 'li' => 'Bright copper kettles' },
  10                 { 'li' => 'Warm, woolen mittens'},
  11         ], 'odd', 'even')
  12 });
  13 print $doc->toString;