#!/usr/bin/perl

use 5.008;
use strict;
use warnings;

use lib ".";
use HTML::Template::Compiled;

my $HTML = <<'HTML';
<?LOOP .termine.data alias=termin?>
	<?LOOP .termine.cols alias=col?>
	<?= EXPR="ucfirst(col)"?>: <?= EXPR="termin{col}"?>
	<?/LOOP?>
<?/LOOP?>
HTML

my $htc = HTML::Template::Compiled->new(
	scalarref => \$HTML,
	tagstyle => [ qw(+php) ],
	loop_context_vars => 1,
    use_expressions   => 1,
);
$htc->param(
	termine => {
		data => [
			{
				date => '1.1.2012',
				time => '11:11',
				event => 'Helau! Alaaaf!',
				location => 'Köln',
				storytellers => "",
				author => "Der Bütt"
			},
			{
				date => '1.2.2012',
				time => '17:30',
				event => 'Aschermiddwoch - en Usbligg!',
				location => 'Kölle',
				storytellers => "Jo Mozz",
				author => "FV Oslazigg"
			},
			
		],
		cols => [ qw(date time event location storytellers author) ],
	}
);

print $htc->output();

# ergibt dann:
__END__

	
	Date: 1.1.2012
	
	Time: 11:11
	
	Event: Helau! Alaaaf!
	
	Location: Köln
	
	Storytellers: 
	
	Author: Der Bütt
	

	
	Date: 1.2.2012
	
	Time: 17:30
	
	Event: Aschermiddwoch - en Usbligg!
	
	Location: Kölle
	
	Storytellers: Jo Mozz
	
	Author: FV Oslazigg