###############################################################################
# インターフェイス ############################################################
{
	# セッションがデータを保存するためのストレージ
	package IDatabase;
	
	# ストレージの開始処理
	# void initialize()
	sub initialize { die("this is an interface"); }
	
	# メッセージを１件読み込み
	# Message getNextMessage()
	sub getMessage() { die("this is an interface"); }
	
	# 次のメッセージがあるかどうかを示す
	# bool hasNextMessage()
	sub hasNextMessage() { die("this is an interface"); }
	
	# ストレージの終了処理
	# void finalize()
	sub finalize { die("this is an interface"); }
	
	1;
}
{
	# セッションに与えられるパラメータ
	package IParameter;
	
	# キーに対応するパラメータを取得
	# String getParam(String key)
	sub getParam { die("this is an interface"); }
	
	# キーに対応するパラメータを取得
	# String[] getParams(String key)
	sub getParams { die("this is an interface"); }
	
	1;
}
{
	# セッションはこれを使用して画面表示する
	package IDisplay
	
	# テンプレートパラメータを設定
	# void addParameter(String key, String value)
	sub addParameter { die("this is an interface"); }
	
	# 表示
	# void doDisplay()
	sub doDisplay { die("this is an interface"); }
}

###############################################################################
# 実装クラス ##################################################################
{
	# CSVデータベース
	package CSVFile;
	@ISA = qw(IDatabase);
	
	# property index
	use constant stream => 0;
	
	# 構築
	# CSVFile new(String file)
	sub new {
		my($class,$file) = @_;
		my $this = [
			IO::File->new($file,'+rw'),
			];
		bless($this,$class);
	}
	
	# see IDatabase
	sub initialize {
		my($this) = @_;
		# とくに必要なし
	}
	
	# see IDatabase
	sub getMessage() {
		my($this) = @_;
		
		my $csv = $this->_analizeCSV();
		return Message->new(
			$csv->[0],
			$csv->[1],
			);
	}
	
	# see IDatabase
	sub hasNextMessage() {
		my($this) = @_;
		return $this->[stream]->eof();
	}
	
	# see IDatabase
	sub finalize {
		my($this) = @_;
		$this->[stream]->close();
	}
	
	# ストリームを読み取り解析し配列にして返す
	# ARRAYREF analizeCSV()
	sub _analizeCSV {
		return [1,2,3,4,5];
	}
	
	1;
}
{
	package CGIForm;
	@ISA = qw(IParameter);
	
	# property index
	use constant cgi => 0;
	
	# 本クラスはCGI.pmを利用します
	# CGIForm new(CGI cgi)
	sub new {
		my($class,$cgi) = @_;
		my $this = [
			$cgi
			];
		bless($this,$class);
		
	}
	
	# see IParameter
	sub getParam {
		my($this,$key) = @_;
		$this->[cgi]->param($key);
	}
	
	# see IParameter
	sub getParams {
		my($this,$key) = @_;
		$this->[cgi]->param($key);
	}
	
	1;
}
{
	package HTMLPage;
	@ISA =qw(IDisplay);
	
	# 出力先を指定
	# HTMLPage new(IO::Handle out)
	sub new {
		$this->[out] = out;
		$this->[template] = HTML::Template->new();
	}
	
	# see IDisplay
	sub addParameter {
		my($this,$key,$value) = @_;
		$this->[template]->param($key,$value);
	}
	
	# see IDisplay
	sub doDisplay { $this->[out]->print($this->[template]->output()); }
}

###############################################################################
# セッション ##################################################################
{
	# セッションのテンプレート仮想クラス
	package AbstractSession;
	
	# 構築
	# AbstractSession new()
	sub new {
		my($class) = @_;
		my $this = [
			undef, # IDatabase
			undef, # IParameter
			undef  # IDisplay
			];
		bless($this,$class);
	}
	
	# 初期化
	# void initialize()
	sub initialize { }
	
	# 独自に定義したIDatabase実装クラスを返すこと
	# IDatabase createDatabase()
	sub createDatabase { die("this is an abstract"); }
	
	# 独自に定義したIParameter実装クラスを返すこと
	# IParameter createParameter()
	sub createParameter { die("this is an abstract"); }
	
	# 独自に定義したIDisplay実装クラスを返すこと
	# IDisplay createDisplay()
	sub createDisplay { die("this is an abstract"); }
	
	# Kuzuha実行オペレーション
	# void main()
	sub main {
		my($this) = @_;
		
		$this->[database] = $this->createDatabase();
		$this->[parameter] = $this->createParameter();
		$this->[display] = $this->createDisplay();
		
		if ($this->[parameter]->param("投稿")) {
			# ?
		} elsif ($this->[parameter]->param("リロード")) {
			while ($this->[database]->hasNextMessage()) {
				$this->[display]->addParameter(
					"message",
					$this->[database]->getNextMessage()
					);
			}
			$this->[display]->doDisplay();
		}
	}
	
	# 終了処理
	# void finalize()
	sub finalize { }
	
	1;
}
{
	# CGIによるセッション
	package CGISession;
	@ISA = qw(AbstractSession);
	
	# see AbstractSession
	sub createDatabase { CSVFile->new("log.dat"); }
	
	# see AbstractSession
	sub createParameter { CGIForm->new( CGI->new() ); }
	
	# see AbstractSession
	sub createDisplay { HTMLPage->new('STDOUT'); }
	
	1;
}


###############################################################################
# エントリポイント ############################################################
{
	# bbs.cgi
	package Application;
	use CGISession;
	
	# エントリポイント
	main: {
		my $sess = CGISession->new();
		$sess->main();
	}
}