Class::Data::Inheritable - 継承可能な, オーバーライド可能な、クラスデータ mk_classdata('DataFile'); ]]> DataFile('/etc/stuff/data'); ]]> Class::Data::Inheritable は、クラスデータのアクセサ/ミューテータを作るのに向いています。 つまり、(単一のオブジェクトとは違って、)クラス全体に何かを蓄えたい場合です。 このデータは、サブクラスで継承され得ますし、オーバーライドされ得ます。 例: mk_classdata('Suitcase'); ]]> これは、Suitcate メソッドを、Pere::Ubu クラスに生成します。 新しいメソッドは、クラスデータの一つを得たり、セットするのに、使われ得ます。 Suitcase('Red'); $suitcase = Pere::Ubu->Suitcase; ]]> 面白い部分が、クラスが Pere::Ubu から継承するときに起こります： Suitcase; ]]> Raygun は、Pere::Ubuからスーツケースクラスデータ継承します。 クラスデータの継承は、メソッド継承にanalgousを動かします。 Raygunが、継承されたクラスデータを(Suitcase()を使って、新しい値をセットすることによって)"オーバーライド"しないかぎり、 Pere::Ubu で、セットされたものをなんでも使い続け、以前の変更を継承し続けます。 Suitcase('Blue'); ]]> しかし、Raygun が、自分自身のSuitcase() をセットするべきだと決めると、 Suitcase() は、 今や、Pare::Ubu を"オーバーライド"しており、Raygun 自身のものです。 オーバーライドされたメソッドにちょうど、似ています。 Suitcase('Orange'); ]]> さて、Raygun は、Pare::Ubu をオーバーライドしたので、Pare::Ubu による、以前の変更は まったく Raygun には、影響を与えません。 Suitcase('Samsonite'); ]]> mk_classdata mk_classdata($data_accessor_name); ]]> これはクラスメソッドで、新しいクラスデータのアクセサを宣言するのに使われます。 $data_accessor_name を名前に使って、新しいアクセサがクラス内に作られます。 オーバーライドを容易にするために、mk_classdata は、アクセサへのエイリアス _field_accessor() を作ります。 それで、Suitcase() には、_Suitcase_accessor() というエイリアスがあり、 このエイリアスは、Suitcase() と、ちょうど同じことをします。 単一のアクセサの振る舞いを変えようとして、 まだ、継承可能なクラスデータの恩恵を得たいなら、有益です。次の例のように。 _Suitcase_accessor(@_); } ]]> (原文まま) Copyright (c) 2000, Damian Conway and Michael G Schwern. All Rights Reserved. This module is free software. It may be used, redistributed and/or modified under the terms of the Perl Artistic License (see http://www.perl.com/perl/misc/Artistic.html) (原文まま) Original code by Damian Conway. Maintained by Michael G Schwern <schwern@pobox.com> perltootc は、とても入念なPerlのクラスデータについての議論があります。 翻訳者：加藤敦 (ktat.is@gmail.com) Perlドキュメント日本語訳 Project にて、 Perlモジュール、ドキュメントの翻訳を行っております。