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