sub template {
    my ($self,$filename,@args) = @_;

    # create include subroutine in template package if none exists.

    if (!*Bug::Reporter::In::Template::include{CODE}) {
        *Bug::Reporter::In::Template::include = sub {
           $self->template(shift(),@args,@_);
        };
    }
    $self->load_tmpl($filename)->fill_in(
        PACKAGE => 'Bug::Reporter::In::Template',
        HASH => {
            application => $self,
            @args
        }
    );
}

# just to clarify: I'm overriding CGI::Application's load_tmpl():

sub load_tmpl {
    my ($self, $file) = @_;
    require Text::Template;
    return Text::Template->new(
        UNTAINT => 1,
        TYPE => 'FILE',
        SOURCE => $self->tmpl_path()."/$file",
    ) || die $Text::Template::ERROR;
}