File Coverage

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

Criterion	Covered	Total	%
statement	23	25	92.0
branch			n/a
condition			n/a
subroutine	7	8	87.5
pod	4	4	100.0
total	34	37	91.8

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

package MarpaX::Database::Terminfo::String::Grammar;
use MarpaX::Database::Terminfo::String::Grammar::Actions;
use MarpaX::Database::Terminfo::Grammar::CharacterClasses;

# ABSTRACT: Terminfo string grammar in Marpa BNF

our $VERSION = '0.011'; # VERSION


our $GRAMMAR_CONTENT = do {local $/; };

sub new {
    my $class = shift;

    my $self = {};

    $self->{_content} = $GRAMMAR_CONTENT;
    $self->{_grammar_option} = {
        action_object  => sprintf('%s::%s', __PACKAGE__, 'Actions'),
        source => \$self->{_content}
    };
    $self->{_recce_option} = {};

    bless($self, $class);

    return $self;
}


sub content {
    my ($self) = @_;
    return $self->{_content};
}


sub grammar_option {
    my ($self) = @_;
    return $self->{_grammar_option};
}


sub recce_option {
    my ($self) = @_;
    return $self->{_recce_option};
}


1;

=pod

=encoding UTF-8

=head1 NAME

MarpaX::Database::Terminfo::String::Grammar - Terminfo string grammar in Marpa BNF

=head1 VERSION

version 0.011

=head1 SYNOPSIS

    use MarpaX::Database::Terminfo::String;

    my $grammar = MarpaX::Database::Terminfo::String->new();
    my $grammar_content = $grammar->content();

=head1 DESCRIPTION

This modules returns Terminfo string grammar written in Marpa BNF.

=head1 SUBROUTINES/METHODS

=head2 new($class)

Instance a new object.

=head2 content($self)

Returns the content of the grammar.

=head2 grammar_option($self)

Returns recommended option for Marpa::R2::Scanless::G->new(), returned as a reference to a hash.

=head2 recce_option($self)

Returns recommended option for Marpa::R2::Scanless::R->new(), returned as a reference to a hash.

=head1 SEE ALSO

L

=head1 AUTHOR

jddurand

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2013 by Jean-Damien Durand.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut

__DATA__