|
Last change
on this file since 99797 was 94320, checked in by vboxsync, 3 years ago |
|
libs/openssl-3.0.1: Export to OSE and fix copyright headers in Makefiles, bugref:10128
|
|
File size:
322 bytes
|
| Line | |
|---|
| 1 | #!perl
|
|---|
| 2 | #
|
|---|
| 3 | # Test for comments within an inline code block
|
|---|
| 4 |
|
|---|
| 5 | use strict;
|
|---|
| 6 | use warnings;
|
|---|
| 7 | use Test::More tests => 2;
|
|---|
| 8 |
|
|---|
| 9 | use_ok 'Text::Template' or exit 1;
|
|---|
| 10 |
|
|---|
| 11 | my $tmpl = Text::Template->new(
|
|---|
| 12 | TYPE => 'STRING',
|
|---|
| 13 | SOURCE => "Hello {\$name#comment}");
|
|---|
| 14 |
|
|---|
| 15 | my $vars = { name => 'Bob' };
|
|---|
| 16 |
|
|---|
| 17 | is $tmpl->fill_in(HASH => $vars), 'Hello Bob';
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
