Introduction

Synopsis

実行例

#!/usr/bin/perl

use lib 'lib';
use strict;
use Template::Like;

my $input = q{
[% var %]
[% FOREACH var = vars %]
・[% var.name %]
[% END %]
[% var %]
[% IF bool %]TURE!![% ELSE %]FALSE!![% END %]
[% UNLESS bool %]TURE!![% ELSE %]FALSE!![% END %]
};

my $param = {
  var  => "HOGE",
  vars => [ { { name => "FOO" } }, { { name => "BAR" } } ],
  bool => 1
};

my $t = Template::Like->new;

my $output = "";

$t->process(\$input, $param, \$output);

print $output;

exit;

実行結果

HOGE

・FOO

・BAR

HOGE
TURE!!
FALSE!!