| #!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; |