note
snoopy
You just need to setup a <tt>DATA</tt> block and pass through <tt>filehandle => *DATA</tt> to [mod://HTML::Template]
<code>
#!/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>
</code>
651848
651848