Select Code to Download

my $th = new Thread( \&Another::Module::run, $p );

D:\Perl\test>perl58 -de1

...
  DB<5> q

D:\Perl\test>

#! perl -slw
use strict;
...
print threads->self()->tid, ' : ', join' ', %{ $p };

$t->join;

E:\perl58-rc3\test>test.pl3
Another::Module=HASH(0x8823dc)|CODE(0x16381cc)
...
1 : initialisation data some 1
1 : initialisation data a new element added in the second thread some 
+1
0 : initialisation data a new element added in the main thread some 1

bless is not supported on shared references. In the current version, b
+less will only bless the thread local reference and the blessing will
+ not propagate to the other threads. This is expected to be implement
+ed in a future version of Perl.