File Coverage

blib/lib/MarpaX/Repa/Test.pm

Criterion	Covered	Total	%
statement	37	38	97.3
branch	1	2	50.0
condition			n/a
subroutine	9	9	100.0
pod	0	2	0.0
total	47	51	92.1

use 5.010; use strict; use warnings;

package MarpaX::Repa::Test;

use Marpa::R2;
use MarpaX::Repa::Lexer;
use MarpaX::Repa::Actions;

sub simple_lexer {
    my $self = shift;
    my %args = (@_);
    my $grammar = Marpa::R2::Grammar->new({
        action_object => 'MarpaX::Repa::Actions',
        start => 'text',
        default_action => 'do_what_I_mean',
        rules => [
            [ 'text'  => [ 'word' ] ],
        ],
        (
            map { $_ => $args{$_} } grep exists $args{$_},
            qw(start rules default_action),
        ),
    });
    $grammar->precompute;
    my $recognizer = Marpa::R2::Recognizer->new( { grammar => $grammar } );
    my $lexer = MarpaX::Repa::Lexer->new(
        tokens     => { word => 'test' },
        store      => 'scalar',
        %args,
        recognizer => $recognizer,
    );

    return ($lexer, $recognizer, $grammar);
}

sub recognize {
    my $self = shift;
    my %args = (@_);

    my $input = delete $args{'input'};
    my $io;
    unless ( ref $input ) {
        open $io, '<', \$input;
    } else {
        $io = $input;
    }

    my ($lex, $rec, $gram) = $self->simple_lexer( %args );
    $lex->recognize( $rec, $io );
    return ($lex, $rec, $gram);
}

1;