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.