Perlのクラス変数について

Question

Perlでクラス変数を扱う方法は、２通りあるかなと思っています。

# パターン1
my $hoge;

# パターン2
sub new {
    my $class = shift;
    return bless { hoge => undef }, $class;
}

それぞれ、変数のスコープは一緒だと思っていますがパターン2だと連想配列を扱いたい場合など
リファレンスするなど少し面倒です。

サンプルを見るとパターン2の方が、圧倒的なような気がしています。
パターン１は、あまり推奨されていないのか、使い分けるケースがあるのか教えて頂けますでしょうか？

Answer 1

なるほど、
クラス変数は、インスタンスAが変数aを書き換えるとインスタンスBの変数も書き換わってしまうんですね。

違いを理解出来ました。
ありがとうございます。

Answer 2

パターン1の方は、クラス変数 で、インスタンスごとに同じ値を共有します。
パターン2の方は、メンバー変数 で、インスタンスごとに異なる値を持つことができます。

Rubyでいうと、パターン1は@@hoge、パターン2は@hoge（インスタンス変数）に相当します。

Perlのクラスのインスタンスの実体は$selfにありますので、そこに所属しないものはインスタンスのメンバーではありません。

蛇足ですが、Perlのクラスにおいて、メンバー変数の実体は$selfに格納したハッシュ参照です。そして$selfをパッケージにblessすることで、あたかもメソッドを呼んでいるかのような記述を可能にしています。

参考リンク:
perltoot - トムによる Perl オブジェクト指向チュートリアル - perldoc.jp