Perl6 Grammars Keeping State

Run Settings
Language	Raku
Language Version
Run Command

1
2
3
4
5
6
7
8
9
10
11
my $GLOBAL-BINARY = False;
grammar Foo {
    regex TOP {
        :my Bool $*BINARY;
        <ab>+
        { $GLOBAL-BINARY = $*BINARY with $*BINARY }
    }
    token ab { <a>+ (<b>+)? }
    token a  { 'a' {$*BINARY = True} }
    token b  { 'b' {$*BINARY = False} }
}
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Editor Settings
Theme
Key bindings
Full width
Lines	10

Snippet Metadata
Owner	clifton.wood
Created	6 years ago
Modified	6 years ago
Visibility	Public