File Coverage

blib/lib/Pugs/Compiler/Grammar.pm

Criterion	Covered	Total	%
statement	18	30	60.0
branch	0	2	0.0
condition	1	2	50.0
subroutine	6	7	85.7
pod	2	2	100.0
total	27	43	62.7

use strict;
use warnings;
#use Smart::Comments;

package Pugs::Compiler::Grammar;

our $VERSION = '0.28';

use Pugs::Grammar::Rule;
use Pugs::Emitter::Grammar::Perl5;
use Carp qw(carp croak);

sub compile {
    my ($class, $src, $opts) = @_;
    $opts ||= {};
    my $match = Pugs::Grammar::Rule->spec($src);
    if ($match->bool) {
        ## $match
        my $capture = $match->();
        my $leading_block = $capture->{block};
        ### leading block: $leading_block
        my $ast = $capture->{grammar};
        ## $ast
        my $perl5;
        for my $g (@$ast) {
            ### Grammar found...
            $g = $g->();
            my ($name) = keys %$g;
            ### Grammar: $name
            $perl5 .= Pugs::Emitter::Grammar::Perl5::emit($g, $opts);
        }
        bless {
            source => $src,
            ast => $ast,
            perl5 => $perl5,
        }, $class;
    } else {
        carp "Failed to compile the grammar source";
    }
}

sub perl5 {
    $_[0]->{perl5};
}

1;
__END__