#!/usr/bin/env perl
use feature 'say';

use Mojolicious;
use Mojo::Promise;

say $Mojolicious::VERSION;

my $head = my $a = Mojo::Promise->new;
$a->then(
  sub { say 'a is resolved with ' . join ', ', @_ },
  sub { say 'a is rejected with ' . join ', ', @_ }
);

my $b = Mojo::Promise->new->resolve('b');

$head->reject($b);

$a->wait;