package
Gherkin::Token;
$Gherkin::Token::VERSION
=
'3.2.0001_1'
;
# TRIAL
use
strict;
use
warnings;
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;