LolDispatch.pm

role handler {
}

module LolDispatch {
    my @routes;

    multi trait_auxiliary:<is>(handler $trait, Block $block, $arg) is export {
        @routes.push({:route($arg[0]), :block($block)});
    }

    sub dispatch($r) is export {
        for @routes -> $item{
            if $r ~~ $item<route> {
                my $ret = $item<block>($r,$/);
                return $ret;
            }
        }
        warn "Could not dispatch $r";
    }
}

test.p6

use LolDispatch;

sub foo($request, $match) is handler(/wtf/) {
    say 'dispatched to foo';
    say $match.perl;
}
 
sub item($request, $match) is handler(/^\/item\/(\d+)/) {
    say 'dispatched to item';
    say $match.perl;
}
 
my $request = '/item/12345';
 
dispatch($request);