Provide a way to manipulate highexpect.

Raku · Dec 10, 2012 · 45ecaf8 · 45ecaf8
1 parent e6ea357
commit 45ecaf8
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/src/QRegex/Cursor.nqp b/src/QRegex/Cursor.nqp
@@ -329,7 +329,17 @@ role NQPCursorRole is export {
     }
 
     method !highexpect() {
-        nqp::getattr($!shared, ParseShared, '@!highexpect')    
+        nqp::getattr($!shared, ParseShared, '@!highexpect')
+    }
+
+    method !fresh_highexpect() {
+        my @old := nqp::getattr($!shared, ParseShared, '@!highexpect');
+        nqp::bindattr($!shared, ParseShared, '@!highexpect', []);
+        @old
+    }
+
+    method !set_highexpect(@highexpect) {
+        nqp::bindattr($!shared, ParseShared, '@!highexpect', @highexpect)
     }
 
     method !clear_highwater() {