#! perl -slw
use strict;
use threads;
use threads::shared;
use Junk;

print $threads::VERSION;
print $threads::shared::VERSION;

sub thread {
    my $obj = shift;
    my $tid = threads->self->tid;
    sleep $tid;
    $obj->add( $tid, time() );
    $obj->dump;
    return;
}

my $obj = Junk->new( abc => 123, pqr => 456 );
my $shrObj :shared = shared_clone( $obj );

my @threads = map threads->create( \&thread, $shrObj ), 1 .. 10;

sleep 11;
$shrObj->dump;

$_->join for @threads;

__END__
c:\test>junk5
1.71
1.26
bless({
  # tied threads::shared::tie
  1   => 1224113391,
  abc => 123,
  pqr => 456,
}, "Junk")

bless({
  # tied threads::shared::tie
  1   => 1224113391,
  2   => 1224113392,
  abc => 123,
  pqr => 456,
}, "Junk")
...

##</code><code>##

package Junk;
use Data::Dump qw[ pp ];

sub new {
    my $class = shift;
    return bless { @_ }, $class;
}

sub dump {
    my $self = shift;
    pp $self;
}

sub add{
    my( $self, $key, $value ) = @_;
    $self->{ $key } = $value;
    return;
}

1;