I created a PR for rakudo (following RT #125427): https://github.com/rakudo/rakudo/pull/487
$ perl6-m -e 'class Foo { }; multi sub infix:<~~>(Foo $a, Foo $b) { 42.6 }; say
Foo.new ~~ Foo; say infix:<~~>(Foo.new, Foo)'
===SORRY!=== Error while compiling -e
Cannot override infix operator '~~', as it is a special form handled directly
by the compiler
at -e:1
------> class Foo { }; multi sub infix:<~~>⏏(Foo $a, Foo $b) { 42.6 }; say
Foo.new ~
