4 use constant HAS_THREADS => eval{ require threads };
6 use Test::More HAS_THREADS ? (tests => 6) : (skip_all => "This is a test for threads ($@)");
18 my $o = MyClass->new(foo => 42);
20 my $x = MyClass->new(foo => 1);
27 MyClass->meta->make_immutable();
29 $x = MyClass->new(foo => 10);
38 ok !$o->meta->is_immutable;