File Coverage

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

Criterion	Covered	Total	%
statement	12	24	50.0
branch	0	2	0.0
condition	0	3	0.0
subroutine	4	9	44.4
pod	3	3	100.0
total	19	41	46.3

#
# Used to generate a grammar containing spaces only
#
use strict;
use warnings FATAL => 'all';

package MarpaX::Languages::ECMAScript::AST::Grammar::ECMAScript_262_5::SpacesAny;
use parent qw/MarpaX::Languages::ECMAScript::AST::Grammar::ECMAScript_262_5::Base/;
use SUPER;

# ABSTRACT: ECMAScript-262, Edition 5, spaces only grammar written in Marpa BNF

our $VERSION = '0.019'; # VERSION

#
# We reuse Program grammar, only a subset of it -;
#
our $grammar_content = do {local $/; };



sub make_grammar_content {
    my ($class) = @_;
    return $grammar_content;
}


sub parse {
    my ($self, $source, $impl, $start) = @_;
    $self->{endReached} = undef;
    return $self->SUPER($source, $impl,
                        {
                         failure => \&_failureCallback,
                         failureargs => [ $self ],
                         end => \&_endCallback,
                         endargs => [ $self ],
                        },
			$start
	);
}


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

sub _failureCallback {
  my ($self, $source, $pos, $max, $impl) = @_;

  $self->{endReached} = 0;
  #
  # This is forcing the parsing to end
  #
  return $max+1;
}

sub _endCallback {
  my ($self, $source, $pos, $max, $impl) = @_;

  $self->{endReached} //= ($pos > $max) ? 1 : 0;
}


1;

=pod

=encoding UTF-8

=head1 NAME

MarpaX::Languages::ECMAScript::AST::Grammar::ECMAScript_262_5::SpacesAny - ECMAScript-262, Edition 5, spaces only grammar written in Marpa BNF

=head1 VERSION

version 0.019

=head1 SYNOPSIS

    use strict;
    use warnings FATAL => 'all';
    use MarpaX::Languages::ECMAScript::AST::Grammar::ECMAScript_262_5::SpacesAny;

    my $grammar = MarpaX::Languages::ECMAScript::AST::Grammar::ECMAScript_262_5::SpacesAny->new();

    my $grammar_content = $grammar->content();
    my $grammar_option = $grammar->grammar_option();
    my $recce_option = $grammar->recce_option();

=head1 DESCRIPTION

This modules returns describes the ECMAScript 262, Edition 5 spaces only grammar written in Marpa BNF, as of L. This module inherits the methods from MarpaX::Languages::ECMAScript::AST::Grammar::ECMAScript_262_5::Base package.

=head1 SUBROUTINES/METHODS

=head2 make_grammar_content($class)

Returns the grammar.

=head2 parse($self, $source, $impl, $start)

Parse the source given as $source, from position $start up to the end, using implementation $impl.

=head2 endReached($self)

Returns a boolean indicating if the parse() method succeeded up to the end of the source or not. Meaningful only after a call to parse().

=head1 SEE ALSO

L

=head1 AUTHOR

Jean-Damien Durand

=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__