>>693
例まで書いていただいてありがとうございます。

買う時には必要でなかったプロパティが、買ってから途中でほしくなった場合のために
プロパティを後から追加できるオブジェクトメソッドを作っておいたらオブジェクト指向の利点がどこかで
失われてしまいますか？

sub additional_propety {
　　my $class = shift;
　　$class->{shift} = shift;
}

第2、第3引数に新規に追加するプロパティとその値を期待します。