3 unless ($Config{useithreads}) {
4 print "1..0 # SKIP your perl does not support ithreads\n";
16 my $one_defer = defer_sub 'Foo::one' => sub {
17 die "remade - wtf" if $made{'Foo::one'};
18 $made{'Foo::one'} = sub { 'one' }
21 is(threads->create(sub {
22 my $info = Sub::Defer::defer_info($one_defer);
24 })->join, 'Foo::one', 'able to retrieve info in thread');
26 is(threads->create(sub {
27 undefer_sub($one_defer);
28 $made{'Foo::one'} && $made{'Foo::one'} == \&Foo::one && 1234;
29 })->join, 1234, 'able to undefer in thread');