simple IF grammar

gistfile1.txt

grammar Directive::Grammar {
    rule TOP { ^ [<direction> | <quit> | <help> | <command>] $ }
    rule direction { ['n' | 's' | 'e' | 'w' | 'out' | 'in'] }
    rule quit { 'quit' }
    rule help { ['help' | '?'] }

    rule command { <verb> <noun_phrase>? }

    rule verb { \w+ }
    rule noun_phrase { ['the' | 'a' | 'some']? \w+ }
}

my @tests =
    'e',
    'take the garbage',
    'out',
    'foo bar baz',
    'help',
    'gesundheit'
    ;

for @tests -> $line {
    say "TEST: $line";
    Directive::Grammar.parse($line);
    if $/ {
        say "YES";
        say $/.perl;
    }
    else {
        say "NO";
    }
}