13.10 継承可能なクラスを書く

Perl Cookbook

自分で設計したクラスが他のクラスやオブジェクトによる継承に耐えられるくらい十分に堅牢であるかを確認したい。

  • 自分のクラスに対して、"空のサブクラステスト"を適用する。

Personと言う名前のクラスを実装したと仮定する。

package Person;

sub new {
  my $class = shift;
  my $self = {};
  return bless $self, $class;
}

sub name {
  my $self = shift;
  $self->{NAME} = shift if @_;
  return $self->{NAME};
}

sub age {
  my $self = shift;
  $self->{AGE} = shift if @_;
  return $self->{AGE};

次に、Employeeと言う名前のクラスを作る。

package Employee;
use Person;
@ISA = ("Person");
1;