so-66233465.raku

class Hold { has $.key; }
class Press { has $.key; }
class Err { has $.msg; }

sub else(&code) { &code }

sub match($needle, *@tests) {
    for @tests.head(*-1) -> &f {
        if &f.cando(\($needle)) {
            f($needle);
            last;
        }
    }
    @tests.tail.();
}

my @possibilities = Hold.new(:key<a>), Press.new(:key<b>), Err.new(:msg<WELP!>), 'unsupported';
# my @possibilities = 'unsupported';

for ^10 {
    match @possibilities.pick, 
        -> Hold (:$key) { put „holding $key“; },
        -> Press (:$key) { put „pressing $key“; },
        -> Err (:$msg) { warn „ERR: $msg“ },
        else { warn ‚unsopported‘ };
}