diff --git a/src/niecza b/src/niecza index 963376f8..6859090a 100644 --- a/src/niecza +++ b/src/niecza @@ -58,6 +58,14 @@ augment class Op::CallMethod { #OK exist } augment class NieczaActions { +method metachar:qw ($/) { + my $cif = $.ast; + my @words = $cif.^isa(::Op::Paren) ?? @( $cif.inside.items ) !! $cif; + @words = map *.text, @words; + + make ::RxOp::Alt.new(zyg => [ map { ::RxOp::String.new(text => $_, + igcase => %*RX, igmark => %*RX) }, @words ], dba => %*RX); +} method dotty:sym<.*> ($/) { if $ eq '.=' { make $.ast.meta_assign;