Select Code to Download

package Testit;
require Exporter;
...
}

1;

#! perl -w
use strict;
...
$thread->join();

exit(0);

c:\test>test
$VAR1 = {
...
                    }
        };
forthread called with argument: '1' at Testit.pm line 11.

&{ 'Testit::forthread' }

\ &{ 'Testit::forthread' }

require $ref->{thread}{module} . '.pm';

...
    },
    $argument
);

require $ref->{thread}{module} . '.pm';

...
    do{ no strict 'refs'; \ &{ $subname } },
    $argument
);