Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: Converting code to use DATA filehandle instead of external templates

by snoopy (Deacon)
on Nov 20, 2007 at 06:29 UTC ( #651863=note: print w/replies, xml ) Need Help??


in reply to resolved: Converting code to use DATA filehandle instead of external templates

You just need to setup a DATA block and pass through filehandle => *DATA to HTML::Template
#!/usr/bin/perl use warnings; use strict; use HTML::Template; #------------ package Page; use base 'HTML::Template'; sub new { my $self = shift; my %args = @_; $self->SUPER::new(%args); } #------------ package main; my $template = Page->new(filehandle => *DATA) || die "Unable to open template"; $template->param(orb => 'world'); print $template->output; __DATA__ hello <TMPL_VAR orb>
  • Comment on Re: Converting code to use DATA filehandle instead of external templates
  • Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://651863]
help
Chatterbox?
[Corion]: Meh. I get the feeling I should post a call-to-action for people to test their modules with the upcoming 5.26 (or 5.25.latest), as it seems that the smoke testers don't really weed out modules that fail without . in @INC
[Corion]: But without instructions on how to easily test things yourself, I don't think such a call to arms is helpful
[Corion]: (this post on nntp.perl.org / p5p makes it seem to me that smoke testers seem to have a blind spot there)
[Corion]: Hmmm. Maybe setting $ENV{PERL5LIB}=" some path without dot"; perl Makefile.PL; make test already is enough to locally test your module...
[Corion]: Meh, no, will need a BEGIN hook...
[Corion]: ... and PERL5OPT does not like -e in it :-(
[Corion]: Ah. The magic invocation is set PERL5OPT=-M-lib=. (equivalent of no lib '.';
[Corion]: )

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (7)
As of 2017-03-27 08:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Should Pluto Get Its Planethood Back?



    Results (317 votes). Check out past polls.