#!/usr/bin/perl --
use strict; use warnings;
use HTML::Template;
my $template = HTML::Template->new(
die_on_bad_params => 1,
#~ scalarref => \'glassesstars ',
scalarref => \'glassesstars ',
debug => 1,
#~ stack_debug => 1,
);
$template->param( spectacles => 0 );
print $template->output;
$template->param( spectacles => 1 );
print $template->output;
print "\n";
__END__
### HTML::Template Debug ### In _parse:
### HTML::Template Debug ### /fake/path/for/non/file/template : line 1 : TMPL_IF spectacles start
### HTML::Template Debug ### /fake/path/for/non/file/template : line 1 : ELSE
### HTML::Template Debug ### /fake/path/for/non/file/template : line 1 : /TMPL_IF end
### HTML::Template Debug ### In output
### HTML::Template Debug ### In output
stars glasses