如何使用threads::shared声明共享属性？

【问题标题】：How to declare a shared attribute using threads::shared?如何使用threads::shared声明共享属性？
【发布时间】：2014-10-19 01:36:24
【问题描述】：

使用threads::shared，可以像这样声明一个共享变量：

my $n_lines_waiting: shared = 0;

使用 Moose，属性通过 'has' 声明：

has 'p_queue' => (is => 'ro', isa => 'Thread::Queue', default => sub{ return Thread::Queue->new(); });

有没有办法将threads::shared 和Moose 结合起来？我想使用 Moose 的漂亮语法来声明一个可以在线程之间共享的属性。

【问题讨论】：

【解决方案1】：

它应该像更改默认值以包含相同的语法一样简单：

'default' => sub {
    my $queue :shared = Thread::Queue->new();
    return $queue
},

【讨论】：