HTML::Template->config(path => $self->cfg_default->{template_dir}, vanguard_compatibility_mode => 1);
1 2 3 4 5 6
sub body{ my $self = shift; my $te = HTML::Template->new(%{$self->{TECFG}}, scalarref => \$self->{BODY}); $te->param(%{$self->{STASH}}); return $te->output; }
2014-12-28T16:13:08 rosties bringt ein paar Nachteile mit sich, u.a. erschwert es die Fehlersuche, wenn das Verhalten einer Instanz vom Aufruf einer Klassenmethode bestimmt wird (HTML::Template->config):
QuoteLetzteres bringt mich auf die Idee, eine "BasisConfig" als native Hash-Referenz an meinen Singleton (Request- und ResponseObject) zu binden
1 2 3 4
sub body{ my $self = shift; return $self->render(\$self->{BODY}, $self->{STASH}); }
1 2 3 4 5
sub start_html{ my $self = shift; my %stash = $self->eav; # title, descr... return $self->render(\$self->{TEMPLATES}{'start_html.html'}, \%stash); }