Select Code to Download

my $grammar = q {
  startrule: test
    test:      "primary"(?) "key"
};

ERROR (line 4): Untranslatable item encountered: "?"
                (Hint: Did you misspell "?" or forget to comment it ou
+t?)

Parse::RecDescent: Treating "startrule:" as a rule declaration
    Parse::RecDescent: Treating "test" as a subrule match
...
    Parse::RecDescent: Treating "_alternation_1_of_production_1_of_rul
+e_test"
                       as a subrule match
    Parse::RecDescent: Treating ""key"" as an interpolated literal ter
+minal