weird code

code.p6

sub matches(&criteria) {
    my &*MATCH_MOVE = sub ($m) { return True };
    &criteria();
    my &match-move = &*MATCH_MOVE;

    return Any.new but role {
        method ACCEPTS(Move $m) {
            match-move($m)
        }
    };
}