p6.p6

# $ perl6 foo.pl 
# ^CUnhandled exception in code scheduled on thread 4
# X::Interrupt exception produced no message
#   in block  at foo.pl line 4

try {
    my $p = start {
        signal(SIGINT).tap: {
           class X::Interrupt is Exception {}.new.throw;
        }
        loop {}
    }

    await Promise.allof($p);
    say $p.result.^name;
}
loop {}