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
}