在Perl的Mojo::Promises中捕获已解决的和被拒绝的

use Mojo::Promise;

# 创建一个Promise对象
my $promise = Mojo::Promise->new;

# 模拟异步操作
Mojo::IOLoop->timer(2 => sub {
    my $result = "Promise resolved";
    # 解决Promise
    $promise->resolve($result);
});

# 捕获已解决的Promise
$promise->then(sub {
    my $result = shift;
    # 处理解决的结果
    say "Resolved: $result";
})->catch(sub {
    my $error = shift;
    # 处理拒绝的原因
    say "Rejected: $error";
});

# 启动事件循环
Mojo::IOLoop->start;