1*e0c4386eSCy Schubert#!perl 2*e0c4386eSCy Schubert# 3*e0c4386eSCy Schubert# Test for comments within an inline code block 4*e0c4386eSCy Schubert 5*e0c4386eSCy Schubertuse strict; 6*e0c4386eSCy Schubertuse warnings; 7*e0c4386eSCy Schubertuse Test::More tests => 2; 8*e0c4386eSCy Schubert 9*e0c4386eSCy Schubertuse_ok 'Text::Template' or exit 1; 10*e0c4386eSCy Schubert 11*e0c4386eSCy Schubertmy $tmpl = Text::Template->new( 12*e0c4386eSCy Schubert TYPE => 'STRING', 13*e0c4386eSCy Schubert SOURCE => "Hello {\$name#comment}"); 14*e0c4386eSCy Schubert 15*e0c4386eSCy Schubertmy $vars = { name => 'Bob' }; 16*e0c4386eSCy Schubert 17*e0c4386eSCy Schubertis $tmpl->fill_in(HASH => $vars), 'Hello Bob'; 18