Perlは、ハッシュとパッケージに基づいたプロトタイプベースの動的言語でOOPをサポートします。オブジェクトを作成するには、通常、blessを使用します:
package Animal; sub new { my ($class, %args) = @_; return bless { %args }, $class; } sub speak { print "動物は音を出します "; } package Dog; use parent 'Animal'; # または our @ISA = ('Animal') sub speak { print "ワン！ "; } my $dog = Dog->new(name => 'Rex'); $dog->speak; # 出力されます: ワン！
ここで、コンストラクタnewはオブジェクトのデータを持つハッシュを作成し、それをクラスに結び付けます。メソッドは通常のサブルーチンとして宣言されます。継承は@ISAまたはモジュールparent/baseを介して可能です。PerlのOOPは柔軟ですが厳密ではなく、それはさらなる機会と微妙さをもたらします。
Perlにおいて、private/protected構文が存在しないことを考慮して、オブジェクトのプライベートプロパティ/メソッドをどのように実装するのが良いでしょうか？
回答： 組み込まれたメカニズムはありませんが、プライバシーはパッケージの外にあるレキシカル変数や命名規約（_private）を通じて達成されます。例えば:
package Car; my $secret = 'hidden'; # パッケージ内でプライベート sub _private { ... } # 規約：外部から呼び出さない
このアプローチはアクセスから保護されるわけではありませんが、標準とされています。
逸話
プロジェクトでは、他のオブジェクトへのリンクを含む配列を持つオブジェクトが定義されていました。開発者たちは、メソッドを$obj->methodのように呼び出すのを忘れ、method($obj)のように呼び出してしまい、特に継承とメソッドのオーバーライド時に予期しない結果を引き起こしました - クラスが正しく定義されず、親メソッドが子メソッドの代わりに呼び出されました。
逸話
オブジェクトの状態を保持するためにレキシカル変数の代わりにパッケージ変数を使用すると、状態の一つの変更がクラスのすべてのインスタンスに反映されてしまい、データがオブジェクトごとではなく共有されてしまいました。
逸話
大規模なプロジェクトにおいて、クラスの動的な読み込み時の継承のために@ISA変数を暗黙的に扱うことが、親リストのタイムリーな更新を妨げ、プログラムが突然メソッドを失ったり、正しくない階層を取得したりする原因となりました。