gistfile1.txt

multi trait_mod:<is>(Routine:D $r, :$randomly_dispatched!) {
    $r does role {
        method find_best_dispatchee(|) {
            self.dispatchees.pick()
        }
    }
}

proto foo($) is randomly_dispatched { * }
multi foo($x) { say 'omg' }
multi foo($x) { say 'wtf' }
multi foo($x) { say 'bbq' }

foo(1) for ^5;