separate FatRat.perl, fix Rational.Str

rakudo · Feb 13, 2012 · 5b9e9af · 5b9e9af
1 parent ddd1f02
commit 5b9e9af
Showing 1 changed file with 7 additions and 4 deletions.
diff --git a/src/core/Rat.pm b/src/core/Rat.pm
@@ -40,12 +40,9 @@ my role Rational is Real {
     method Int() { $!numerator div $!denominator }
 
     method Bridge() { self.Num }
-    multi method Str(Rat:D:) {
+    multi method Str(Rational:D:) {
         self.Num.Str
     }
-    multi method perl(Rat:D:) {
-        $!numerator ~ '/' ~ $!denominator
-    }
     method succ {
         Rat.new($!numerator + $!denominator, $!denominator);
     }
@@ -59,6 +56,9 @@ my role Rational is Real {
 my class Rat    does Rational { 
     method Rat   (Rat:D: Real $?) { self }
     method FatRat(Rat:D: Real $?) { FatRat.new($.numerator, $.denominator); }
+    multi method perl(Rat:D:) {
+        $.numerator ~ '/' ~ $.denominator
+    }
 }
 my class FatRat does Rational {
     method FatRat(FatRat:D: Real $?) { self }
@@ -67,6 +67,9 @@ my class FatRat does Rational {
             ?? Rat.new($.numerator, $.denominator)
             !! fail "Cannot convert from FatRat to Rat because denominator is too big";
     }
+    multi method perl(FatRat:D:) {
+        "FatRat.new($.numerator, $.denominator)";
+    }
 }
 
 sub DIVIDE_NUMBERS(Int:D \$nu, Int:D \$de, $t1, $t2) {