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