comment on

I think it's cute :-)

And it made me think of this monster I just concocted to create an include() function for use in Text::Template templates (called from CGI::Application):

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;
}
[download]

Let's just hope no-one will run this across multiple threads (though Text::Template will probably break on that anyway).

update: spelling

update2: now that I think about it, it's probably a lot better to just call {$app->template('filename')} in the template.

"What should it profit a man, if he should win a flame war, yet lose his cool?"

In reply to Re: Functional Programming & method rewriting by Joost
in thread Functional Programming & method rewriting by SpanishInquisition

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Do you know where your variables are?
	PerlMonks