Perl：参照/祝福の質問

Question

アイデアは、TieHashコンストラクターに[配列、スレッド::コンベアキューなど]のリストを取得するクラスを実装することです。

use AbstractHash; 
tie(%DATA, 'AbstractHash', \@a1, \@a2, \$tcq);

オブジェクト参照を渡す正しい方法は何ですか（前述のように スレッド::コンベア オブジェクト）したがって、コンストラクターへの配列参照があるので、オブジェクトにアクセスできますか？渡されたオブジェクトが祝福されるべき場合はありますか？

Answer 1

私が知る限り、オブジェクトはオブジェクトではありません bless-ed。

とはいえ、コンストラクターの議論は単にの配列になるでしょう Thread::Conveyor オブジェクト：

my $data = AbstractHash->tie ( \@a1, \@a2, \$tcq );

コンストラクターがで定義されています AbstractHash パッケージ：

sub tie {

    my $class = shift;  # Implicit variable, don't forget

    my $data = {
                 someArray => +shift,
                 queues    => +shift,
                 someValue => +shift,
               };

    # $data starts life as a hashref, make it an 'AbstractHash'

    bless $data, $class; # $data is no longer a hashref
    return $data;        # AbstractHash object returned
}