File Coverage

blib/lib/Pegex.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	5	8	62.5
condition	2	3	66.6
subroutine	5	5	100.0
pod	0	1	0.0
total	35	40	87.5

use strict; use warnings;
package Pegex;
our $VERSION = '0.74';

use Pegex::Parser;

use base 'Exporter';
our @EXPORT = 'pegex';

sub pegex {
    my ($grammar, $receiver) = @_;
    die "Argument 'grammar' required in function 'pegex'"
        unless $grammar;
    if (not ref $grammar or $grammar->isa('Pegex::Input')) {
        require Pegex::Grammar;
        $grammar = Pegex::Grammar->new(text => $grammar),
    }
    if (not defined $receiver) {
        require Pegex::Tree::Wrap;
        $receiver = Pegex::Tree::Wrap->new;
    }
    elsif (not ref $receiver) {
        eval "require $receiver; 1";
        $receiver = $receiver->new;
    }
    return Pegex::Parser->new(
        grammar => $grammar,
        receiver => $receiver,
    );
}

1;