# Represents a queue of jobs package Foo; use strict; use warnings; use threads; use threads::shared; sub new { my $class = shift; my $self : shared; $self = &share({}); $self->{queue} = &share([]); bless $self, $class; lock($self->{queue}); return $self }
In reply to Unable to lock shared value by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |