File Coverage

blib/lib/Gherkin/ParserContext.pm

Criterion	Covered	Total	%
statement	21	27	77.7
branch			n/a
condition	3	7	42.8
subroutine	7	9	77.7
pod	0	5	0.0
total	31	48	64.5

package Gherkin::ParserContext;
$Gherkin::ParserContext::VERSION = '39.0.0';
use strict;
use warnings;

use List::Util qw( uniq );

use Class::XSAccessor accessors =>
  [ qw/token_scanner token_matcher token_queue _errors/, ];

sub new {
    my ( $class, $options ) = @_;
    $options->{'token_queue'} ||= [];
    $options->{'_errors'}     ||= [];
    bless $options, $class;
}

sub add_tokens { my $self = shift; push( @{ $self->token_queue }, @_ ); }
sub errors     { my $self = shift; return @{ $self->_errors } }
sub add_errors {
    my $self = shift;
    push @{ $self->{'_errors'} }, @_;
}

sub read_token {
    my ($self) = shift();
    return shift( @{ $self->token_queue } ) || $self->token_scanner->read;
}

1;