Add Cool.Real, Cool.Int, Cool.Rat, and Cool.Num. Eliminate Str.Num an…

…d Str.Int.
rakudo · Aug 30, 2010 · 6ccdcda · 6ccdcda
1 parent 2ee5725
commit 6ccdcda
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 5 deletions.
diff --git a/src/core/Cool-num.pm b/src/core/Cool-num.pm
@@ -3,6 +3,22 @@ augment class Cool {
         pir::set__NP(self);
     }
 
+    method Real() {
+        (+self).Real;
+    }
+
+    method Int() {
+        (+self).Int;
+    }
+
+    method Rat(::Real $epsilon = 1.0e-6) {
+        (+self).Rat($epsilon);
+    }
+
+    method Num() {
+        (+self).Num;
+    }
+
     method abs($x:) {
         (+$x).abs;
     }

diff --git a/src/core/Str.pm b/src/core/Str.pm
@@ -3,11 +3,6 @@ augment class Str does Stringy {
 
     method Str() { self }
 
-    # CHEAT: this implementation is a bit of a cheat,
-    # but works fine for now.
-    multi method Int { (+self).Int; }
-    multi method Num { (+self).Num; }
-
     my @KNOWN_ENCODINGS = <utf-8 iso-8859-1 ascii>;
 
     # XXX: We have no $?ENC or $?NF compile-time constants yet.