Help for this page

Select Code to Download


  1. or download this
    # A thread-safe inside-out object class
package SafeObject;
...
}

1; # package must return true
  2. or download this
    #!/usr/bin/perl
use strict;
...
);
$thr->join;
is( $safe_obj->name(), "Charlie", "main thread still has original name
+" );
  3. or download this
    #!/usr/bin/perl
use strict;
...
Test::More->builder->current_test( 6 );

is( $obj->name(), "Charlie", "parent still has original name" );