# New Ticket Created by Stephane Payrard
# Please include the string: [perl #76998]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=76998 >
Test program below gives
===SORRY!===
Unable to parse blockoid, couldn't find final '}' at line 7
grammar A {
token TOP { <a> };
token a { a }
};
class A::A {
method TOP($/) { say :$<a> }
};
A.parse('a', :actions(A::A));
Note: the specs don't mention that form for capture variables, neither
the form for context variable.
The latter works as expected though.
$ perl6
> my $*a = 1; say :$*a.perl
"a" => 1
>
--
cognominal stef