Re: Functional Programming & method rewriting

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?"

Comment on Re: Functional Programming & method rewriting Download Code

Replies are listed 'Best First'.
Re^2: Functional Programming & method rewriting by SpanishInquisition (Pilgrim) on Oct 28, 2004 at 22:20 UTC
Hmm, I did go the long way to do it, didn't I? :) Thanks for the idea. `sub foo { print "hi mom\n"; my $ptr = \&foo; *foo=sub { print "that was unneccessary:"; $ptr->(); }; } foo(); foo();` [download] Hmm, more Perl voodoo. I like it.	[reply] [d/l]
Re^3: Functional Programming & method rewriting by Sandy (Curate) on Oct 29, 2004 at 21:55 UTC
Using your subroutine, try running `foo(); foo(); foo(); foo();` [download] or for the really dangerous, `foo() for (1..1000);` [download]	[reply] [d/l] [select]


more useful options
	PerlMonks