implement Hash.reverse

also remove a method that accidentally sneaked into Str.pm
rakudo · Feb 20, 2009 · ab75eb1 · ab75eb1
1 parent f7c0c0b
commit ab75eb1
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 4 deletions.
diff --git a/build/Makefile.in b/build/Makefile.in
@@ -108,6 +108,7 @@ BUILTINS_PIR = \
 SETTING = \
   src/setting/Array.pm \
   src/setting/Bool.pm \
+  src/setting/Hash.pm \
   src/setting/List.pm \
   src/setting/Pair.pm \
   src/setting/Str.pm \

diff --git a/src/setting/Hash.pm b/src/setting/Hash.pm
@@ -0,0 +1,9 @@
+class Hash is also {
+    our Hash multi method reverse ( %hash: ) is export {
+        my %result;
+        (%result).{%hash.values} = %hash.keys;
+        %result;
+    }
+}
+
+# vim: ft=perl6
diff --git a/src/setting/Str.pm b/src/setting/Str.pm
@@ -1,8 +1,4 @@
 class Str is also {
-    our Bool multi method ACCEPTS ($topic) {
-        self eq $topic;
-
-    }
     our Str multi method reverse ($str: ) {
         return $str.split('').reverse.join;
     }