[rakudo] implement Hash.delete

git-svn-id: http://svn.perl.org/parrot/trunk/languages/perl6@30468 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
rakudo · Aug 23, 2008 · 2fcac45 · 2fcac45
1 parent aff4841
commit 2fcac45
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/classes/Hash.pir b/src/classes/Hash.pir
@@ -39,6 +39,14 @@ src/classes/Hash.pir - Perl 6 Hash class and related functions
     .return (self)
 .end
 
+.sub 'delete' :method
+    .param string key
+    .local pmc result
+    result = self[key]
+    delete self[key]
+    .return (result)
+.end
+
 .sub 'hash' :method
     .return (self)
 .end