add a prune method to NQPCursor.

Raku · Aug 5, 2013 · b8b4e53 · b8b4e53
1 parent d6f0f6f
commit b8b4e53
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/QRegex/Cursor.nqp b/src/QRegex/Cursor.nqp
@@ -624,6 +624,12 @@ class NQPMatch is NQPCapture {
     method !make($ast) { $!ast := $ast }
     method ast()       { $!ast }
 
+    method prune() {
+        nqp::bindattr(self, NQPCapture, '@!array', NQPMu);
+        nqp::bindattr(self, NQPCapture, '%!hash',  NQPMu);
+        $!cursor := NQPMu;
+    }
+
     method dump($indent?) {
         unless nqp::defined($indent) {
             $indent := 0;