Perlゼミ

1. Perl
›
2. オブジェクト指向プログラミング
›
3. here

SUPER疑似クラス - スーパークラスのメソッドの呼び出し

SUPER疑似クラスを使うと、スーパークラスのメソッドを呼び出すことができます。

package Point;

sub move {
  my ($self, $x, $y) = @_;
  
  $self->{x} += $x;
  $self->{y} += $y;
}

package Point3D;

use base 'Point';

sub move {
  my ($self, $x, $y, $z) = @_;
  
  # スーパークラスのメソッドの呼び出し
  $self->SUPER::clear($x, $y);
  
  $self->{z} += $z;
}

$self->SUPER::clear($x, $y)で、現在のパッケージである「Point3D」のスーパークラスのclearメソッドを探索します。

Pointクラスのclearメソッドが見つかり、これが呼び出されます。

SUPER疑似クラスの注意点

SUPER疑似クラスの注意点として、メソッドの探索順序があります。

単一継承のみを使っている場合は、SUPER疑似クラスの使用は問題ありません。