CPAN::Groonga

 line:

    > pegex help

    > pegex compile --to=yaml your-grammar.pgx
    > pegex compile --to=json your-grammar.pgx
    > pegex compile --to=perl your-grammar.pgx
    > pegex compile --to=perl6 yo

c =>
    'pegex compile --to=<output format> [grammar_file.pgx]';

# Output format. One of: yaml, json, perl, perl6, python.
has to => ();

# Regex format: raw, perl.
has regex => ();

# Use the boots

it / +/, $ENV{PEGEX_COMBINATE_RULES} ]
        : []
    },
);

my %formats = map {($_,1)} qw'yaml json perl';
my %regexes = map {($_,1)} qw'perl raw';
my %commands = map {($_,1)} qw'compile help versi

ub compile {
    my ($self, $args) = @_;

    my $to = $self->to or
        error "--to=perl|yaml|json required";

    my $regex = $self->regex ||
        $to eq 'perl' ? 'perl' : 'raw';

    die "'$t