Add quoted literals to regexes.

perl6 · Oct 15, 2009 · 41bdc6b · 41bdc6b
1 parent e04a163
commit 41bdc6b
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/Regex/P6Regex/Actions.pm b/src/Regex/P6Regex/Actions.pm
@@ -128,6 +128,11 @@ method metachar:sym<( )>($/) {
     make $past;
 }
 
+method metachar:sym<'>($/) {
+    my $past := PAST::Regex.new( ~$<quote><val>, :pasttype('literal') );
+    make $past;
+}
+
 method metachar:sym<.>($/) {
     my $past := PAST::Regex.new( :pasttype('charclass'), :subtype('.') );
     make $past;