Perl/オブジェクト指向/bless（基本）のバックアップソース(No.4)

バックアップ一覧
差分を表示
現在との差分を表示
バックアップを表示
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オブジェクト指向 [#yefcf25c]

** コンストラクタ [#t0c238d8]
 sub new {
     my $class = shift;
     bless {@_}, $class;
 }


** デストラクタ [#wbfe4f23]
 sub DESTROY {
     my $self = shift;
     $self->{fh}->close;
 }

** コンストラクタで親クラスのコンストラクタを呼ぶ [#f78020cd]
 sub new {
     my $class = shift;
     my $self = $class->SUPER::new(@_);
     $self->{foo} = 'var';
     return $self;
 }