Mouseをnewしてみた

gfx.pl

use strict;
use warnings;

use Data::Dumper;
use Text::Xslate;

my $tx = Text::Xslate->new({
  syntax => 'TTerse',
	function => {
		gfx => sub {
			GFX->new();
		},
	},
});

my $template = <<TMPL;
[% gfx() %]
TMPL

my $ret = $tx->render_string($template);

print $ret;

package GFX;
use Mouse;

result.txt

GFX=HASH(0x79a210)