# 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

Reply via email to