From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

$Gherkin::Token::VERSION = '3.2.0001_1'; # TRIAL
use strict;
constructor => 'new',
accessors => [
qw/line location/,
map { "matched_$_" } qw/type keyword indent items text gherkin_dialect/
],
;
sub is_eof { my $self = shift; return !$self->line }
sub detach { }
sub token_value {
my $self = shift;
return $self->is_eof ? "EOF" : $self->line->get_line_text;
}
1;