#!/usr/bin/env perl

# 	$Id: async.pl,v 1.8 2017/07/03 19:46:43 karl Exp karl $

use strict;
use warnings;
use threads;
use MCE::Hobo;
use feature qw(say);

my %actions = (
    nose => sub {
        my $hobo = mce_async { shift } "kumquat";
        ( $hobo->pid, $hobo->join );
    },
    foo => sub {
        my $hobo = mce_async { shift } "bar";
        ( $hobo->pid, $hobo->join );
    },
);

say join " ", $actions{q(nose)}->();
say join " ", $actions{q(foo)}->();

__END__