NAME

Pugs::Emitter::Grammar::Perl5 - Perl 5 emitter for grammar ASTs

SYNOPSIS

    use Pugs::Compiler::Grammar;
    use Pugs::Emitter::Grammar::Perl5;
    my $ast = Pugs::Grammar::Rule->grammar(q{
        grammar MyLang;
        token def {
            <type> <?ws> <var_list> <?ws>? ';'
        }
        token type { int | float | double | char }
        token var_list { <ident> <?ws>? [ ',' <?ws>? <ident> ]* }
    })->();
    my $perl5 = Pugs::Emitter::Grammar::Perl5::emit($ast);
    print $perl5;

FUNCTIONS

"$perl5 = Pugs::Emitter::Grammar::Perl5::emit($ast)"

Generate Perl 5 source code from the grammar AST returned by Pugs::Grammar::Rule's grammar parser.

AUTHOR

The Pugs contributors <perl6-compiler@perl.org>.

COPYRIGHT

Copyright (c) 2007 by Agent Zhang (<agentzh@agentzh.org>) and others.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

See <http://www.perl.com/perl/misc/Artistic.html>

SEE ALSO

Pugs::Compiler::Grammar, compile_p6grammar.pl.