6 use Config qw/%Config/;
9 if (!$Config{useithreads}) {
12 plan(skip_all => 'This perl wasn\'t built to support threads');
18 use Test::More tests => 10 * 2;
21 package Lexical::Types::Test::Tag;
23 sub TYPEDSCALAR { $_[1] = threads->tid() }
28 use Lexical::Types as => 'Lexical::Types::Test::';
33 my $tid = threads->tid();
34 is $t, $tid, "typed lexical correctly initialized at run $_ in thread $tid";
38 my @t = map threads->create(\&try), 1 .. 10;