インスタンス変数継承

この例では、新しいクラスで、取り込むためのスーパークラスから、インスタン スを継承する方法を示します。この継承を行なうには、コンストラクタ内で新し いオブジェクトに対して、スーパークラスのコンストラクタを呼び出して継承部 分の初期化を行なった後、自分自身のインスタンス変数の追加を行ないます。

package Bar;

sub new {
        my $self = {};
        $self->{'buz'} = 42;
        bless $self;
}

package Foo;
@ISA = qw( Bar );

sub new {
        my $self = new Bar;
        $self->{'biz'} = 11;
        bless $self;
}

package main;

$a = new Foo;
print "buz = ", $a->{'buz'}, "\n";
print "biz = ", $a->{'biz'}, "\n";

Go to the first, previous, next, last section, table of contents.