package Tiffany::Template::Semantic; use strict; use warnings; use Template::Semantic; sub new { my ($class, $args) = @_; $args ||= +{}; my $ts = Template::Semantic->new(%$args); bless { ts => $ts, }, $class; } sub render { my ($self, $stuff, @args) = @_; $self->{ts}->process( $stuff, @args); } 1; __END__ =head1 NAME Tiffany::Template::Semantic - Tiffany gateway for Template::Semantic =head1 SYNOPSIS use Tiffany; my $tmpl = Tiffany->load('Template::Semantic'); is $tmpl->render(\q{Hello,
ben
.}, {'#name' => 'john'}), qq{Hello,
john
.\n}; =head1 AUTHOR Tokuhiro Matsuno