#!/usr/bin/perl

use strict;
use warnings;

use TL q(hellonode.ini);

$TL->startCgi(
	      -main => \&main,
	     );


sub main {
  my $t = $TL->newTemplate('hellonode.html');


  # テンプレート中に <!begin:XXX> <!end:XXX> タグを使用することで
  # テンプレートの一部をブロック化することができます．
  # ブロック化した部分をノードと呼び，明示的に出力させない限り
  # 最終的な出力には含まれません．
  # ノードは node メソッドを使用してアクセスでき，
  # ノードに対して add メソッドを呼び出すことで，
  # そのノードが出力されます．
  
  my $timestr = scalar(localtime);
  $t->node('node1')->add(TIME => $timestr);
  $t->node('node1')->add(TIME => $timestr);
  
  $t->flush;

}



