bug2.pl

   1 #!/usr/local/bin/perl
   2
   3 use warnings ;
   4 use strict ;
   5
   6 use Template::Simple ;
   7
   8 my $data = {
   9         widgets => [
  10                 {
  11                         title => "bart",
  12                 },
  13                 {
  14                         title => "marge",
  15                 }
  16         ],
  17 } ;
  18
  19 my $template = <<TMPL ;
  20 [%start widgets%][%title%][%foo%]         [%end widgets%]
  21 TMPL
  22
  23 my $renderer = Template::Simple->new() ;
  24
  25 my $text = $renderer->render( $template, $data ) ;
  26
  27 print ${$text} ;
  28
  29 print "$Template::Simple::VERSION\n" ;