#===============================================
# ContainerObject
#===============================================
package ContainerObject;
use Common;
@ISA = qw(Common);

#公開したいサブルーチン
#@EXPORT = qw();

use strict;
use OpenGL qw/ :all /;

#============================================================
#　静的メンバー関数
#============================================================

#============================================================
#　変数取得関数など
#============================================================

#============================================================
#　コンストラクタ、デストラクタ
#============================================================
sub new
{
	my ($module, @a) = @_;
	my $this = {};
	bless $this;

	$this->SetParameters(@a);
#	Utils::ListToHash(\@a, $this);
	return $this;
}

sub DESTROY
{
	my $this = shift;
}

#============================================================
#　一般関数
#============================================================
sub SetParameters
{
	my ($this, @a) = @_;
	Utils::ListToHash(\@a, $this);
}

1;