File Coverage

blib/lib/MarpaX/Languages/ECMAScript/AST/Grammar.pm

Criterion	Covered	Total	%
statement	12	37	32.4
branch	0	4	0.0
condition			n/a
subroutine	4	13	30.7
pod	9	9	100.0
total	25	63	39.6

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

package MarpaX::Languages::ECMAScript::AST::Grammar;

# ABSTRACT: ECMAScript grammar written in Marpa BNF

use MarpaX::Languages::ECMAScript::AST::Grammar::ECMAScript_262_5;
use MarpaX::Languages::ECMAScript::AST::Exceptions qw/:all/;

our $VERSION = '0.018'; # VERSION


sub new {
  my ($class, $grammarName, %grammarSpecificOptions) = @_;

  my $self = {};
  if (! defined($grammarName)) {
    InternalError(error => 'Usage: new($grammar_Name)');
  } elsif ($grammarName eq 'ECMAScript-262-5') {
    $self->{_grammarAlias} = 'ECMAScript_262_5';
    $self->{_grammar} = MarpaX::Languages::ECMAScript::AST::Grammar::ECMAScript_262_5->new(%grammarSpecificOptions);
  } else {
    InternalError(error => "Unsupported grammar name $grammarName");
  }
  bless($self, $class);

  return $self;
}


sub program {
    my ($self) = @_;
    return $self->{_grammar}->program;
}


sub grammarAlias {
    my ($self) = @_;
    return $self->{_grammarAlias};
}


sub template {
    my ($self) = @_;
    return $self->{_grammar}->template;
}


sub stringNumericLiteral {
    my ($self) = @_;
    return $self->{_grammar}->stringNumericLiteral;
}


sub pattern {
    my ($self) = @_;
    return $self->{_grammar}->pattern;
}


sub JSON {
    my ($self) = @_;
    return $self->{_grammar}->JSON;
}


sub URI {
    my ($self) = @_;
    return $self->{_grammar}->URI;
}


sub spacesAny {
    my ($self) = @_;
    return $self->{_grammar}->spacesAny;
}


1;

__END__