gistfile1.txt

{
    multi sub infix:<cmp>(42, "Life, The Universe, and Everything") { Order::Same }

    {{{{{
        sub trylift () {
            nonlifter;
            lifter;
        }

        trylift;
    }}}}}
}

sub nonlifter () {
    say "Normal: { 42 cmp "Life, The Universe, and Everything" }";
}

sub lifter () {
    my &infix:<cmp> = CALLER::LEXICAL::{ '&infix:<cmp>' };
    say "Lifted: { 42 cmp "Life, The Universe, and Everything" }";
}