RE: @{$self->{container}} share question

some suggestions are below.  unfortunately i'm not able to test them out
right now, but in my experience they should work.  i apologize if they don't
for some reason.

> package test;
>
> use strict;
> use threads;
> use threads:shared;
>
> sub new {
>    my $class = shift;
>    $class = ref($class);
>    my $self = {};

change to: my $self = &share({});

>    # doesn't like the following in a shared scenario
>    @{$self->{container}} = ();

try: $self->{container} = &share([]);

>    bless $self, $class;
>    return $self;
> }
>
> sub push : locked method {
>    my $self = shift;
>    my @stuff = ();
>    @stuff = @_;
>    if (scalar @stuff > 0) {
>       # whines about the @{$self->{container}} and sharing here.  Why?
>       push(@{$self->{container}},@stuff);

try changing declaration above to: my @stuff : shared = ();

>    }
> }
> 1;