Add methodop arguments to named assertions.

perl6 · Oct 16, 2009 · 4c7671c · 4c7671c
1 parent f44ecaf
commit 4c7671c
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/Regex/P6Regex/Actions.pm b/src/Regex/P6Regex/Actions.pm
@@ -7,6 +7,10 @@ our @MODIFIERS := Q:PIR {
         push %r, $P0
     };
 
+method arg($/) {
+    make $<quote> ?? ~$<quote><val> !! +$<val>;
+}
+
 method TOP($/) {
     my $past := buildsub( $<nibbler>.ast );
     $past.node($/);
@@ -315,6 +319,11 @@ method assertion:sym<name>($/) {
         if $<nibbler> {
             $past.push( buildsub($<nibbler>[0].ast) );
         }
+        elsif $<arglist> {
+            for $<arglist>[0]<arg> {
+                $past.push( $_.ast );
+            }
+        }
     }
     make $past;
 }