今日の成果

  • Perlにコンストラクタはない
  • 階層はなるべく浅めに
  • 継承を使いたいときは以下の呪文を唱える
    • use base qw(Parent); も教科書に載ってました(汗)
 use strict;
 use vars qw(@ISA);
 @ISA = qw(Parent);
  • インスタンスフィールドはパッケージのグローバルハッシュとして持つ
    • ごめんなさい、嘘です。これはstaticフィールドになります。
use vars qw(%hoge);
BEGIN {
    %hoge = (
        foo => 'bar',
    );
}