File Coverage

lib/Pegex/Chess.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	25	26	96.1

package Pegex::Chess;
our $VERSION = '0.0.8';

use Pegex::Base;
use Pegex::Parser;
use Pegex::Chess::Grammar;
use Pegex::Chess::Data;
use IO::All;

sub parse_chess_board_file {
    my ($self, $chess_board_file, $debug) = @_;
    my $input = io->file($chess_board_file)->all;
    my $parser = Pegex::Parser->new(
        grammar => Pegex::Chess::Grammar->new,
        receiver => Pegex::Chess::Data->new,
        debug => $debug,
    );
    return $parser->parse($input);
}

1;