git.sesse.net Git - xml-template/blob - perl-sax/structure.pl

   1 #! /usr/bin/perl
   2 use XML::TemplateSAX;
   3
   4 my $doc = XML::TemplateSAX::process_file('../xml/structure.xml', {
   5         '#outer' => [
   6                 { '#inner' => 'One' },
   7                 { '#inner' => 'Two' },
   8                 { '#inner' => 'Three' },
   9         ]
  10 });
  11 print $doc;