lucky.pl

#!/usr/bin/env perl
use common::sense;
use DDP;
use Mojo::Promise;
use Mojo::IOLoop::Subprocess;

my $subprocess = Mojo::IOLoop::Subprocess->new;
$subprocess->run(
    sub {
        my $subprocess = shift;
        use DDP;

        my $new_ioloop = Mojo::IOLoop->new;


        my @promises = map {
            my $p = Mojo::Promise->new()->ioloop($new_ioloop);

            $p->then(
                sub {
                    print STDERR "p is running\n\n";

                    Mojo::IOLoop->timer(
                        2 => sub {
                            $p->('Lucky!');
                        }
                    );

                }
            )->catch(sub { use DDP; p \@_; });
            $p;
        } (1 .. 10);

        #$new_ioloop->one_tick;

        print STDERR "->wait\n\n";

        Mojo::Promise->all(@promises)->wait();

        print STDERR "not today!\n";

        return 'a';
    },
    sub {
        use DDP;
        p \@_;
    }
);

$subprocess->ioloop->start unless $subprocess->ioloop->is_running;

it prints '->wait
` but never reach "p is running" nor "not today"