#!/usr/local/bin/perl

use strict ;
use warnings ;

use Trexy::Template ;

my $template = <<TEST;


<table width="100%" border=1>
     [-start widgets-]
     <tr>
     <td>[-anchor-]</td>
     <td>
         <b>[-title-]</b>
         <br>[-description-]
     </td>
     <td>[-escaped_anchor-]</td>
     <td>[-options-]</td>
     </tr>
         [-end widgets-]
</table>

TEST


my $tokens = {
	widgets => [
		{ title => "bart" },
                { title => "marge" }
	],
};

print Trexy::Template->new->render($template, $tokens);



