use Test::More qw/no_plan/;
use HTML::Template;
my $text = qq{Before. <TMPL_IF NAME="TEST"> 1. <TMPL_ELSE> 2. <TMPL_ELSE> 3. </TMPL_IF> After.};
eval {
my $template = HTML::Template->new(
debug => 0,
scalarref => \$text,
);
};
like($@, qr/found second <TMPL_ELSE> tag/,
"including 2 <tmpl_else> tags for one tmpl_if should throw an error");