Text::Xslateの謎な挙動

gistfile1.pl

#!/usr/bin/perl

use strict;
use warnings;
use Text::Xslate;
use utf8;
use Encode;

my %vpath;
$vpath{"test.tt"} = <<_TMPL_;
[%- MACRO hoge1 (aaa) BLOCK -%]
[%- END -%]
[%- variable = 1 -%]
[%- MACRO hoge2 (bbb) BLOCK -%]
これが呼ばれないと再現しない
[%- END -%]
[%- hoge2(1) -%]
[% hoge1("AAA") %]
[% variable %] <- why "AAA" ???
_TMPL_

my $t = Text::Xslate->new(
    syntax => 'TTerse',
    cache_dir => '/tmp/xslate-cache/',
    path => \%vpath
    );
print Encode::encode("utf-8", $t->render("test.tt"));

遅くなりましたが 1.5020 で修正しました！