1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
#!perl
#
# Test for breakage of Dist::Milla in v1.46
#
use strict;
use warnings;
use Text::Template;
BEGIN {
# Minimum Test::More version; 0.94+ is required for `done_testing`
unless (eval { require Test::More; "$Test::More::VERSION" >= 0.94; }) {
Test::More::plan(skip_all => '[ Test::More v0.94+ ] is required for testing');
}
Test::More->import;
}
my $tmpl = Text::Template->new(
TYPE => 'STRING',
SOURCE => q| {{ '{{$NEXT}}' }} |,
DELIMITERS => [ '{{', '}}' ]);
is $tmpl->fill_in, ' {{$NEXT}} ';
done_testing;
|
