Define Bridge method for the real types.

This is a cast type to a lingua franca bridge type for real numbers.  (Was called RealX in my blog posts on the subject.  Am open to better suggestions than Bridge, but wanted to get the concept working.)

src/core/Int.pm

@@ -22,6 +22,10 @@ augment class Int does Real {
         self.Num.ACCEPTS($other);
     }
 
+    method Bridge() {
+        self.Num;
+    }
+
     our Bool multi method Bool() { self != 0 ?? Bool::True !! Bool::False }
 
     our Int multi method Int() { self }

src/core/Num.pm

@@ -8,6 +8,7 @@ augment class Num does Real {
             $other == self;
         }
     }
+
     multi method ACCEPTS(Complex $other) {
         if self eq 'NaN' {
             $other.re eq 'NaN' || $other.im eq 'NaN';
@@ -16,6 +17,10 @@ augment class Num does Real {
         }
     }
 
+    method Bridge() {
+        self;
+    }
+
     multi method Bool() {
         self != 0.0e0
     }

src/core/Rat.pm

@@ -34,6 +34,11 @@ class Rat does Real {
 
     multi method perl() { "$!numerator/$!denominator"; }
 
+    method Bridge() {
+        $!denominator == 0 ?? Inf * $!numerator.sign
+                           !! $!numerator.Bridge / $!denominator.Bridge;
+    }
+
     our Bool multi method Bool() { $!numerator != 0 ?? Bool::True !! Bool::False }
 
     multi method Num() {

src/core/Real.pm

@@ -1,4 +1,8 @@
 role Real does Numeric {
+    method Bridge() {
+        fail "Bridge must be defined for the Real type " ~ self.WHAT;
+    }
+
     method abs() {
         self < 0 ?? -self !! self;
     }