in reply to 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; }

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.

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();

    Hmm, more Perl voodoo. I like it.

      Using your subroutine, try running
      foo(); foo(); foo(); foo();
      or for the really dangerous,
      foo() for (1..1000);