#!/usr/bin/perl
use 5.6.0;
use strict;
BEGIN { unshift(@INC, './lib'); }
#-------------------------------------------------------------------------------
# Satsuki system - Startup routine (default for cgi/mod_perl)
#			Copyright (C)2005-2007 nabe@abk / E-mail:nabe@abk.nu
#-------------------------------------------------------------------------------
# Last Update : 2007/01/16
{
	if ($ENV{timer}) { require Satsuki::Timer; }
	#--------------------------------------------------
	# 時間計測開始
	#--------------------------------------------------
	my $timer;
	if (defined $Satsuki::Timer::VERSION) {
		$timer = Satsuki::Timer->new();
		$timer->start();
	}
	#--------------------------------------------------
	# メイン
	#--------------------------------------------------
	require Satsuki::Base;			# ベースシステム（標準関数）ロード
	my $ROBJ = Satsuki::Base->new();	# ルートオブジェクト生成
	$ROBJ->{Timer} = $timer;		# タイマーの保存

	$ROBJ->start_up();
	undef %$ROBJ;		# メモリリーク対策（必須）
}