File Coverage

blib/lib/Marpa/PP/Callback.pm

Criterion	Covered	Total	%
statement	38	40	95.0
branch	4	8	50.0
condition			n/a
subroutine	10	10	100.0
pod	0	2	0.0
total	52	60	86.6

# Copyright 2012 Jeffrey Kegler
# This file is part of Marpa::PP.  Marpa::PP is free software: you can
# redistribute it and/or modify it under the terms of the GNU Lesser
# General Public License as published by the Free Software Foundation,
# either version 3 of the License, or (at your option) any later version.
#
# Marpa::PP is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
# Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser
# General Public License along with Marpa::PP.  If not, see
# http://www.gnu.org/licenses/.

package Marpa::PP::Callback;

use 5.010;
use warnings;
use strict;
use integer;

use vars qw($VERSION $STRING_VERSION);
$VERSION        = '0.014000';
$STRING_VERSION = $VERSION;
{
## no critic (BuiltinFunctions::ProhibitStringyEval)
## no critic (ValuesAndExpressions::RequireConstantVersion)
    $VERSION = eval $VERSION;
}

package Marpa::PP::Internal::Callback;

use English qw( -no_match_vars );

sub Marpa::PP::location {
    Marpa::PP::exception('No context for location callback')
        if not my $context = $Marpa::PP::Internal::CONTEXT;
    my ( $context_type, $and_node, $recce ) = @{$context};
    if ( $context_type eq 'and-node' ) {
        my $earleme =
            $and_node->[Marpa::PP::Internal::And_Node::START_EARLEME];
        my $earley_sets =
            $recce->[Marpa::PP::Internal::Recognizer::EARLEY_SETS];
        return $earley_sets->[$earleme]
            ->[Marpa::PP::Internal::Earley_Set::ORDINAL];
    } ## end if ( $context_type eq 'and-node' )
    Marpa::PP::exception('LOCATION called outside and-node context');
} ## end sub Marpa::PP::location

sub Marpa::PP::cause_location {
    Marpa::PP::exception('No context for cause_location callback')
        if not my $context = $Marpa::PP::Internal::CONTEXT;
    my ( $context_type, $and_node, $recce ) = @{$context};
    if ( $context_type eq 'and-node' ) {
        my $earleme =
            $and_node->[Marpa::PP::Internal::And_Node::CAUSE_EARLEME];
        my $earley_sets =
            $recce->[Marpa::PP::Internal::Recognizer::EARLEY_SETS];
        return $earley_sets->[$earleme]
            ->[Marpa::PP::Internal::Earley_Set::ORDINAL];
    } ## end if ( $context_type eq 'and-node' )
    Marpa::PP::exception('cause_location() called outside and-node context');
} ## end sub Marpa::PP::cause_location

no strict 'refs';
*{'Marpa::PP::token_location'} = \&Marpa::PP::cause_location;
use strict;

1;