Start adding operators for Real and Num.

src/core/Real.pm

@@ -12,3 +12,35 @@ role Real does Numeric {
                     !! (self ~~ NaN ?? NaN !! self <=> 0);
     }
 }
+
+multi sub infix:«<=>»(Real $a, Real $b) {
+    $a.Bridge <=> $b.Bridge;
+}
+
+multi sub infix:«<=>»(Num $a, Num $b) {
+    $a cmp $b;
+}
+
+multi sub infix:«<»(Real $a, Real $b) {
+    $a.Bridge < $b.Bridge;
+}
+
+multi sub infix:«<»(Num $a, Num $b) {
+    pir::islt__INN( $a, $b) ?? True !! False
+}
+
+multi sub prefix:<->(Real $a) {
+    -($a.Bridge);
+}
+
+multi sub prefix:<->(Num $a) {
+    pir::neg__NN($a);
+}
+
+multi sub infix:<->(Real $a, Real $b) {
+    $a.Bridge - $b.Bridge;
+}
+
+multi sub infix:<->(Num $a, Num $b) {
+    pir::sub__NNN($a, $b)
+}