File Coverage

blib/lib/Inline/C/Parser/Pegex.pm

Criterion	Covered	Total	%
statement	15	22	68.1
branch	0	2	0.0
condition			n/a
subroutine	5	8	62.5
pod	0	3	0.0
total	20	35	57.1

use strict; use warnings;
package Inline::C::Parser::Pegex;

use Pegex::Parser;
use Inline::C::Parser::Pegex::Grammar;
use Inline::C::Parser::Pegex::AST;

sub register {
    {
        extends => [qw(C)],
        overrides => [qw(get_parser)],
    }
}

sub get_parser {
    my $o = shift;
    Inline::C::_parser_test($o->{CONFIG}{DIRECTORY}, "Inline::C::Parser::Pegex::get_parser called\n") if $o->{CONFIG}{_TESTING};
    bless {}, 'Inline::C::Parser::Pegex'
}

sub code {
    my($self,$code) = @_;

    $main::data = $self->{data} =
    Pegex::Parser->new(
        grammar => Inline::C::Parser::Pegex::Grammar->new,
        receiver => Inline::C::Parser::Pegex::AST->new,
        # debug => 1,
    )->parse($code);

    return 1;
}

1;