Start moving caps into the code object.

Author: jnthn

src/NQP/Actions.pm

@@ -1636,4 +1636,8 @@ class NQP::RegexActions is QRegex::P6Regex::Actions {
     method store_regex_nfa($code_obj, $block, $nfa) {
         $code_obj.SET_NFA($nfa.save);
     }
+    
+    method store_regex_caps($code_obj, $block, %caps) {
+        $code_obj.SET_CAPS(%caps);
+    }
 }

src/QRegex/Cursor.nqp

@@ -28,7 +28,9 @@ role NQPCursorRole is export {
         my $name;
 
         if !nqp::isnull($!regexsub) && $!regexsub {
-            %caplist := $!regexsub.nqpattr('caps');
+            %caplist := nqp::ifnull(
+                nqp::can($!regexsub, 'CAPS') ?? $!regexsub.CAPS() !! nqp::null(),
+                $!regexsub.nqpattr('caps'));
             if !nqp::isnull(%caplist) && %caplist {
                 $iter := nqp::iterator(%caplist);
                 while $iter {