Add .Range "coercer" for Num/Rat types

rakudo · Mar 16, 2015 · 21f01b0 · 21f01b0
1 parent 1add79c
commit 21f01b0
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/src/core/Num.pm b/src/core/Num.pm
@@ -15,6 +15,7 @@ my class Num does Real { # declared in BOOTSTRAP
     }
     method Num() { self }
     method Bridge(Num:D:) { self }
+    method Range(Num:U:) { Range.new(-Inf,Inf) }
 
     method Int(Num:D:) {
         nqp::isnanorinf(nqp::unbox_n(self)) ??

diff --git a/src/core/Rat.pm b/src/core/Rat.pm
@@ -2,6 +2,7 @@
 my class Rat is Cool does Rational[Int, Int] {
     method Rat   (Rat:D: Real $?) { self }
     method FatRat(Rat:D: Real $?) { FatRat.new($.numerator, $.denominator); }
+    method Range(Rat:U:) { Range.new(-Inf,Inf) }
     multi method perl(Rat:D:) {
         my $d = $.denominator;
         return $.numerator ~ '.0' if $d == 1;