何なんだあの変態的なSyntaxは。いやこれで何となくわかったけど。
オブジェクト指向Perlの仕組み
オブジェクト指向の基本要素 Perlによる実装 クラス パッケージ オブジェクト(インスタンス) データ構造 メソッド サブルーチン
ちょっとした便利スクリプトを勉強しながらperlでチマチマ書こうとしてたんだが、pythonで書いたらサラサラ進んで楽しかった。もうperlは習得できないのか俺。pythonはどのLinuxにも必ず入っているわけじゃない場合があるけど、perlはほぼ100%なんだよなぁ(逆にいうと、それ以上のメリットはあまり感じない)。
つーか、これも変態的。うええええ。
sub foo { my $self = shift; @_ ? $self->{foo} = shift : $self->{foo} }
あとはこれが参考になる→Perl におけるオブジェクト指向 : torus solutions!