Talk grammar testing
1234567891011121314151617181920
my $file = slurp "data.sm";
$file ~~ s:g/^^\s*end$$/\}/;
if ($file ~~ m/^^\s*doing\s(<[\w\-]>+)\s(\N+)$$/) -> *$m is copy {
$m = $m.list>>.Str;
my $names = gather for $m[1].split(", ") {take .split: ": "};
say $names;
say "($($names.map(':$' ~ *[0]).join(', '))) " ~
"\{my ($($names.map('$' ~ *[1]).join(', '))) = $($names.map('$' ~ *[0]).join(', '));\}";
}
sub test(:$from) {my \a = $from; say a}
say $file;
test from => 1;
Raku
INFO