Make fiddling with Cursor internals scarier, jnthn++.

Raku · Mar 26, 2015 · 315106c · 315106c
1 parent 8aeba2a
commit 315106c
Showing 1 changed file with 11 additions and 16 deletions.
diff --git a/src/QRegex/Cursor.nqp b/src/QRegex/Cursor.nqp
@@ -36,22 +36,8 @@ role NQPCursorRole is export {
     has $!regexsub;
     has $!restart;
 
-    method orig($value = '') {
-        my $orig := nqp::getattr($!shared, ParseShared, '$!orig');
-        if $value ne '' {
-            $orig := $orig ~ $value;
-            nqp::bindattr($!shared, ParseShared, '$!orig', $orig);
-        }
-        $orig
-    }
-    method target($value = '') {
-        my $target := nqp::getattr_s($!shared, ParseShared, '$!target');
-        if $value ne '' {
-            $target := $target ~ $value;
-            nqp::bindattr_s($!shared, ParseShared, '$!target', $target);
-        }
-        $target
-    }
+    method orig() { nqp::getattr($!shared, ParseShared, '$!orig') }
+    method target() { nqp::getattr_s($!shared, ParseShared, '$!target') }
     method from() { $!from }
     method pos() { $!pos }
 
@@ -62,6 +48,15 @@ role NQPCursorRole is export {
         $!regexsub := NQPMu;
     }
 
+    method !APPEND_TO_ORIG($value) {
+        my $orig := nqp::getattr($!shared, ParseShared, '$!orig');
+        $orig := $orig ~ $value;
+        nqp::bindattr($!shared, ParseShared, '$!orig', $orig);
+        my $target := nqp::getattr_s($!shared, ParseShared, '$!target');
+        $target := $target ~ $value;
+        nqp::bindattr_s($!shared, ParseShared, '$!target', $target);
+    }
+
     my $NO_CAPS := nqp::hash();
     method CAPHASH() {
         my $caps    := nqp::hash();