モジュールの概念・リファレンスとオブジェクト

質問

{
　package TEST;
　new { bless {}; }
　method {}
}

最も簡単な(何もしない)クラスを作ってみたのですが、
$obj = new TEST;
とした場合、この戻り値は『自分がどのパッケージに属しているか知っているリファレンス』である、と理解しました。

ここで考えたのですが、パッケージ外で
$obj->method();
とした場合は『クラスのメソッド』を呼べると思うのですが
『自分がどのパッケージに属しているか知っているリファレンス』=要するにリファレンス
に対してアロー演算子をつけると、クラスオブジェクトを表すようになるという概念が理解できません。

$obj->method();　は
リファレンス->関数

という事になり、意味がわかりません。
挙動はわかるのですが、内部的にどのように処理しているのかをご存知の方、もしくはそれに関して言及している資料などご存知の方が居ましたら教えていただけないでしょうか。
よろしくお願いします。

回答No.2

zebedeer · ベストアンサー

>『パッケージの関数のポインタ+リファレンスがメモリに確保される。』

そんな感じです。
ただ、perlは割と無茶なことができるので、こんなコードでも動きます。
（ただし、use strictではエラー）

#packageとmethodの宣言
{package TEST;sub method {print "call method\n"}}
#package名を文字列で与える
my $pkg = 'TEST';
#package名をhash refとして使用
$pkg->{'key'} = "hash ref\n";
#hash ref\nを出力
print $pkg->{'key'};
#&TEST::method ('TEST')を呼ぶ（call method\nを出力）
$pkg->method;

blessはこれをuse strict環境でも動くようにしたものといえるかもしれません。
（use strictを使わないなら上の方法で同じことができるし）

ちなみにblessはreferならhashだけでなくarryも使用できます。
（あまり使わないと思うけど）
use strict;
{
package TEST;
sub new { bless []; }
sub method {print "aaa\n"}
}
my $my = TEST->new ();
$my->method;
@{$my} = (3,4);

use Data::Dumper;
print Dumper $my;

回答No.1

zebedeer

こんなコードを流すと理解の助けになるかもしれません。
（あとはblessが理解できればすっきりすると思う）

{
package TEST;
sub new { bless {}; }
sub method {}
}
use Data::Dumper;
print Dumper \%{TEST::};

お礼

時間がかかってすみません。
いろいろ自分自身で検証をしたりしていました。
簡単に言って、blessされると、『パッケージの関数のポインタ+リファレンスがメモリに確保される。』ってな感じなんですね。
（まあ、オブジェクトの実装としては当たり前ですが。）
で、コンテキストによって挙動を変えている、という感じで理解しました。
もし、理解が間違っている時は指摘してください。