[urisagit/Template-Simple.git] / bug2.pl

#!/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" ;
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" ;