File Coverage

blib/lib/Pegex/Module.pm

Criterion	Covered	Total	%
statement	3	7	42.8
branch	0	2	0.0
condition			n/a
subroutine	1	2	50.0
pod	0	1	0.0
total	4	12	33.3

package Pegex::Module;
use Pegex::Base;

has parser_class => 'Pegex::Parser', lazy => 0;
has grammar_class => (
    default => sub {
        my $class = ref($_[0]);
        die "$class needs a 'grammar_class' property";
    },
);
has receiver_class => 'Pegex::Tree';

sub parse {
    my ($self, $input) = @_;
    $self = $self->new unless ref $self;
    # use XXX; XXX $self;
    my $parser = $self->parser_class->new(
        grammar => $self->grammar_class->new,
        receiver => $self->receiver_class->new,
    );
    $parser->parse($input);
}

1;