Text::Yats 0.03

Text::Yats is Yet Another Template System.

SYNOPSIS

use Text::Yats;

my $template = < < ENDHTML;
< html >
< head >
< title >$title - $version< /title >
< /head >
< body >
< form >
< select name="names" >< !--{1}-- >
< option $selected >$list< /option >
< !--{2}-- >< /select >
< /form >
< /body >
< /html >
ENDHTML

my $result = "";
my $tpl = Text::Yats- >new(
level = > 1,
text = > $template);

$result .= $tpl- >section- >[0]- >replace(
title = > "Yats",
version = > "Development", );

$result .= $tpl- >section- >[1]- >replace(
list = > [hdias,anita,cubitos],
selected = > { value = > "selected",
array = > "list",
match = > "anita", } );

$result .= $tpl- >section- >[2]- >text;
print $result;