projects
/
urisagit/Template-Simple.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
loops and hashes are working
[urisagit/Template-Simple.git]
/
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" ;