[perl] モジュールの初期化

モジュールの初期化処理をするにはどうしたらよいのだろうか?


sub __new {
my $pkg = shift;
my $this = bless {} => $pkg;

$this->{INI} = undef; # Tripletail::Ini
$this->{filter} = {}; # 優先順位 => Tripletail::Filter
$this->{filterlist} = []; # [Tripletail::Filter, ...] 優先順位でソート済み

$this->{hook} = {
init        => {}, # 優先順位 => CODE
term        => {},
};
$this->{hooklist} = {
init        => [], # [CODE, ...] 優先順位でソート済み
term        => [],
};

$this;
}


関連記事

スポンサードリンク

Comments

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です