+++ /dev/null
-#!/usr/local/bin/perl
-
-use warnings ;
-use strict ;
-
-use Template::Simple ;
-
-my $data = {
- widgets => [
- {
- title => "bart",
- },
- {
- title => "marge",
- }
- ],
-} ;
-
-my $template = <<TMPL ;
-[%start widgets%][%title%][%foo%] [%end widgets%]
-TMPL
-
-my $renderer = Template::Simple->new() ;
-
-my $text = $renderer->render( $template, $data ) ;
-
-print ${$text} ;
-
-print "$Template::Simple::VERSION\n" ;