#!/usr/bin/perl

use strict;
use warnings;

use lib '.';    # load DEV of HTC
use HTML::Template::Compiled;

my @data = (
    {   Veranstaltung => "C-Workshop 2020 Testdorf",
        Zeit          => "12:00",
        Datum         => "01.02.2012",
        Ort           => "Testdorf",
        Veranstalter  => "Tim Towdi"
    },
    {   Veranstaltung => "Perlen für Anfänger",
        Zeit          => "18:00",
        Datum         => "01.03.2012",
        Ort           => "Perlsen",
        Veranstalter  => "IHK Perlsen"
    }
);
my @row_names = qw(Veranstaltung Zeit Datum Ort Veranstalter);

my $tmpl = <<HTML;
<?LOOP .termine.data alias=termin?>
--------------
Termin <?= __counter__ ?>: 
<?LOOP .termine.column_names alias=column?>
<?= column ?>: <?= EXPR=".termine.data[0].{column}"?> (Datensatz 0 als Test)
<?= column ?>: <?= EXPR="termin.{column}"?>
<?/LOOP?>
--------------
<?/LOOP?>
HTML

my %parms = (
    termine => {
        column_names => \@row_names,
        data         => \@data
    }
);

my $htc = HTML::Template::Compiled->new(
    scalarref         => \$tmpl,
    tagstyle          => [qw(+php)],
    loop_context_vars => 1,
    use_expressions   => 1,
);
$htc->param(%parms);
print $htc->output;