File Coverage

blib/lib/MarpaX/Database/Terminfo/String.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod	2	2	100.0
total	45	45	100.0

use strict;
use warnings FATAL => 'all';

#
# This module is sharing the same mechanism as MarpaX::Database::Terminfo
#
package MarpaX::Database::Terminfo::String;
use base 'MarpaX::Database::Terminfo';
use MarpaX::Database::Terminfo::String::Grammar;
use Marpa::R2;

# ABSTRACT: Parse a terminfo string using Marpa

use Log::Any qw/$log/;
use Carp qw/croak/;

our $VERSION = '0.010'; # VERSION



# ----------------------------------------------------------------------------------------

sub new {
  my $class = shift;

  my $self = {};

  my $grammarObj = MarpaX::Database::Terminfo::String::Grammar->new(@_);
  my $grammar_option = $grammarObj->grammar_option();
  $grammar_option->{bless_package} = __PACKAGE__;
  $self->{_G} = Marpa::R2::Scanless::G->new($grammar_option);

  my $recce_option = $grammarObj->recce_option();
  $recce_option->{grammar} = $self->{_G};
  $self->{_R} = Marpa::R2::Scanless::R->new($recce_option);

  bless($self, $class);

  return $self;
}
# ----------------------------------------------------------------------------------------

sub parse {
    my ($self, $bufferp) = @_;
    #
    # No array reference argument: this grammar has no event
    #
    return $self->_parse($bufferp);
}


1;

__END__