gistfile1.txt

class GenericService {
    only sub infix:<cmp> ($a,$b) { $*CMP($a,$b) }

    method lifter1 () {
        my $*CMP = CALLER::LEXICAL::{ '&infix:<cmp>' };
        lifter2;
    }

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

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

    {{{{{
        sub trylift () {
            nonlifter;
            GenericService.lifter1;
        }

        trylift;
    }}}}}
}

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