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