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