5 unless ($Config{useithreads} && eval { require threads } ) {
6 plan skip_all => "your perl does not support ithreads";
14 my $one_defer = defer_sub 'Foo::one' => sub {
15 die "remade - wtf" if $made{'Foo::one'};
16 $made{'Foo::one'} = sub { 'one' }
19 ok(threads->create(sub {
20 my $info = Sub::Defer::defer_info($one_defer);
21 $info && $info->[0] eq 'Foo::one';
22 })->join, 'able to retrieve info in thread');
24 ok(threads->create(sub {
25 undefer_sub($one_defer);
26 $made{'Foo::one'} && $made{'Foo::one'} == \&Foo::one;
27 })->join, 'able to undefer in thread');