#!/usr/bin/perl --
use strict; use warnings;
use HTML::Template;
my $template = HTML::Template->new(
    die_on_bad_params  => 1,
#~     scalarref => \'<tmpl_if spectacles>glasses<tmpl_else>stars</tmpl_if> ',
    scalarref => \'<tmpl_if name="spectacles">glasses<tmpl_else>stars</tmpl_if> ',
    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