« shift 関数 unshift関数 | メイン | コンストラクタ »
2005年10月13日
スーパークラスの継承
@SESSION::ISA = qw(LOG);
スーパークラスで定義したメソッドは、そのままサブクラスで使うことができるんだ。また、上書きしちゃうこともできる。
package ClassA; というのがあって
中にnew print_x というメソッドがあったとして
@ISA = qw ( ClassA );
クラスBを以下のように書けば敬称できるらしいが よーわからんの
# ClassB のコンストラクタ
sub new {
my $class = shift;
# ClassA のコンストラクタを呼び出す
my $self = new ClassA;
return bless $self;
}
投稿者 muuming : 2005年10月13日 13:05