#!/usr/bin/perl
use strict;
use warnings;
use Tripletail q(debug.ini);
$TL->startCgi(
-main => \&main,
);
sub main {
my $t = $TL->newTemplate('debug.html');
foreach my $key (sort $CGI->getKeys) {
$t->node('formitem')
->add(KEY => $key,
VALUE => $CGI->get($key),
);
}
if($CGI->get('submit')) {
$t->setForm($CGI);
}
$t->flush;
# ログファイルにデータを書き出します.
# iniファイルで log_popup=1 と指定してあれば,
# ポップアップウィンドウでも確認できます.
$TL->log(GROUPNAME => 'ログの出力テスト');
# $CGI の内容をダンプします.
$TL->dump(CGIVAR => $CGI);
# 変数 $i,@data の内容をウォッチし,更新を通知します.
my $i;
my @data;
$TL->watch(VAR_a => \$i);
$TL->watch(VAR_data => \@data);
for($i = 0; $i < 3; $i++)
{
push(@data, $i);
}
}