grammar-proto-priority.pl

my $test = "1 2 3";

grammar TestGrammar {

    regex TOP { <char> ** ' ' }

    proto regex char { }

    regex char:sym<digit> { \d }

    regex char:sym<letter> { \w }

}

class TestActions {

    method TOP($/) {
        make $<char>.map({$_.ast});
    }

    method char:sym<letter>($/) {
        say "matched letter";
        #make join('', $/.chunks>>.value)
        make "l";
    }

    method char:sym<digit>($/) {
        say "matched digit";
        #make join('', $/.chunks>>.value)
        make "d";
    }

}

my $actions = TestActions.new();

say TestGrammar.parse($test, :$actions).ast;