Commit | Line | Data |
---|---|---|
e374d8da | 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" ; |