Perl/オブジェクト指向/bless（基本）のバックアップ(No.4) - yanor.net/wiki

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
Perl/オブジェクト指向/bless（基本）へ行く。
- 1 (2009-10-26 (月) 20:41:57)
- 2 (2009-10-26 (月) 20:50:36)
- 3 (2010-02-06 (土) 20:42:51)
- 4 (2010-05-13 (木) 10:10:42)
- 5 (2010-11-13 (土) 15:26:07)
- 6 (2011-06-11 (土) 14:24:29)

blessを使ったPerlオブジェクト指向

コンストラクタ

 sub new {
     my $class = shift;
     bless {@_}, $class;
 }

デストラクタ

 sub DESTROY {
     my $self = shift;
     $self->{fh}->close;
 }

コンストラクタで親クラスのコンストラクタを呼ぶ

 sub new {
     my $class = shift;
     my $self = $class->SUPER::new(@_);
     $self->{foo} = 'var';
     return $self;
 }