#!/usr/bin/perl 
use strict;
use warnings;

use threads;


sub create_thread {
    warn "in create_thread() before async()\n";
    my $thr = async { warn "in thread\n"; };
    warn "in create_thread() before join()\n";
    sleep 2;
    $thr->join;
    warn "in create_thread() before return\n";
    return;
}


use Event;
my $timer = Event->timer( cb => \&create_thread, after => 2);

warn "starting event loop\n";
Event::loop;

##</code><code>##

Perl exited with active threads:
        0 running and unjoined
        1 finished and unjoined
        0 running and detached