Hi Joe,
Yup, your test file works perfectly:
Last login: Thu Jun 18 19:38:12 on ttys000
user@mbook:~$ perl6 regexp_code_interpolation_with_capture_var.t
ok 1 - case: {} $(... $0 ...)
ok 2 - case: <{... $0 ... .subst(/\s/, '\s', :g)}>
ok 3 - case: {} "... $0 ..." (brad gilbert rec)
ok 4 - case: {
I don't have a 2020.02.1 around, but I see all of this working
with both more recent and earlier versions: 2020.05.1 and 2019.03.1.
> 1. I got your first "if" line (below) from June 14th to work, the one
> you said, "it's not a complete solution":
> 1> if $line ~~ / (^P\d+) \s+ <{ %products{$0}.su
cf:
https://stackoverflow.com/questions/56393888/why-how-is-an-additional-variable-needed-in-matching-repeated-arbitary-character
https://stackoverflow.com/questions/51408141/perl6-grammar-not-sure-about-some-syntax-in-an-example
> from approx 1.1 to 0.0006 secs. That's quite an improvement!
:)
Be aware of the stop gap nature of the module, and its WARNING:
> At some point, these problems will be addressed in core, but in the
> meantime...
> This module depends on internal details of the REPRs
> of the involved types i
