move Num.perl to setting

rakudo · Apr 17, 2009 · ecca702 · ecca702
1 parent 8f5ecdc
commit ecca702
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 12 deletions.
diff --git a/build/Makefile.in b/build/Makefile.in
@@ -119,6 +119,7 @@ SETTING = \
   src/setting/IO.pm \
   src/setting/List.pm \
   src/setting/Match.pm \
+  src/setting/Num.pm \
   src/setting/Object.pm \
   src/setting/Pair.pm \
   src/setting/Range.pm \

diff --git a/src/classes/Num.pir b/src/classes/Num.pir
@@ -61,18 +61,6 @@ Num - Perl 6 numbers
 .end
 
 
-=item perl()
-
-Returns a Perl representation of the Num.
-
-=cut
-
-.sub 'perl' :method
-    $S0 = self
-    .return($S0)
-.end
-
-
 =item succ and pred
 
 Increment and Decrement Methods

diff --git a/src/setting/Num.pm b/src/setting/Num.pm
@@ -0,0 +1,7 @@
+class Num is also {
+    multi method perl() {
+        ~self
+    }
+}
+
+# vim: ft=perl6