view release on metacpan or  search on metacpan

t/900_bugs/033_ex_safe_render.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More;
use File::Temp qw(tempdir);

{
    package MyCounter;
    sub new { my $class = shift;bless {@_} => $class }
    sub incr  { shift->{count}++ }
    sub decr  { shift->{count}-- }
    sub count { shift->{count} }
}

use Text::Xslate;
my $tx = Text::Xslate->new(
    cache  => 1,
    syntax => 'TTerse',
    path => {