gistfile1.txt

role foo_command {
}

module FooDispatch {
    my @commands;
    multi trait_auxiliary:<is>(foo_command $trait, $block, $arg) is export {
        @commands.push({:command($arg[0]), :block($block)});
    }

    sub dispatch(Str $line) is export {
        for @commands -> $item {
            if $line ~~ $item<command> {
                my $ret = $item<block>($line);
                return $ret;
            }
        }
        warn "Could not dispatch {$line}";
    }
    sub foo() is foo_command(/^foo/) {
        say "Foo invoked";
    }
}
 
dispatch("foo");

# vim:ft=perl6