Select Code to Download

  my $o = bless { a => 'A', b => 'B' }, "CLASS" ;

  show('main - pre ', $o) ;
...
    printf "%20s: ", $t ;
    print "$x {", join(", ", map { "$_ => $$x{$_}" } sort keys %$x), "
+}\n" ;
  } ;

         main - pre : CLASS=HASH(0x15c2e88) {a => A, b => B}
              thread: CLASS=HASH(0x1adee98) {a => A, b => B, z => Z}
         main - post: CLASS=HASH(0x15c2e88) {a => A, b => B}

  my %s : shared = ( x => 'X', y => 'Y' ) ;
  my $o = bless \%s, "SHARE" ;

         main - pre : SHARE=HASH(0x15c4778) {x => X, y => Y}
              thread: SHARE=HASH(0x1825950) {x => X, y => Y, z => Z}
         main - post: SHARE=HASH(0x15c4778) {x => X, y => Y, z => Z}

  my $t = threads->new(\&make, a => 'A', b => 'B') ; my $o = $t->join(
+) ;
  show('main', $o) ;

...
    if ($r eq 'HASH')   { print " = {", join(", ", map { "$_ => $$x{$_
+}" } sort keys %$x), "}" ; } ;
    print "\n" ;
  } ;

              thread: MADE=HASH(0x197d4e0) = {a => A, b => B}
                main: SCALAR(0x1712078) = undef