Text-Template-1.56/t/inline-comment.t

e1051a39Sopenharmony_ci#!perl
e1051a39Sopenharmony_ci#
e1051a39Sopenharmony_ci# Test for comments within an inline code block
e1051a39Sopenharmony_ci
e1051a39Sopenharmony_ciuse strict;
e1051a39Sopenharmony_ciuse warnings;
e1051a39Sopenharmony_ciuse Test::More tests => 2;
e1051a39Sopenharmony_ci
e1051a39Sopenharmony_ciuse_ok 'Text::Template' or exit 1;
e1051a39Sopenharmony_ci
e1051a39Sopenharmony_cimy $tmpl = Text::Template->new(
e1051a39Sopenharmony_ci    TYPE => 'STRING',
e1051a39Sopenharmony_ci    SOURCE => "Hello {\$name#comment}");
e1051a39Sopenharmony_ci
e1051a39Sopenharmony_cimy $vars = { name => 'Bob' };
e1051a39Sopenharmony_ci
e1051a39Sopenharmony_ciis $tmpl->fill_in(HASH => $vars), 'Hello Bob';