#!/usr/bin/perl
use
strict;
use
warnings;
my
$template_sprintf_30
=
'<%= test ESCAPE=SPRINTF_6_RIGHT %>'
;
my
$text
=
'hello'
;
my
$tmpl
= HTML::Template::Compiled->new(
scalarref
=> \
$template_sprintf_30
,
plugin
=> [
'HTML::Template::Compiled::Plugin::Sprintf'
],
);
$tmpl
->param(
test
=>
$text
);
my
$output
=
$tmpl
->output;
is
$output
,
' hello'
,
'sprintf_6_right'
;