line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Gherkin::Token; |
2
|
|
|
|
|
|
|
$Gherkin::Token::VERSION = '25.0.1'; |
3
|
2
|
|
|
2
|
|
14
|
use strict; |
|
2
|
|
|
|
|
4
|
|
|
2
|
|
|
|
|
58
|
|
4
|
2
|
|
|
2
|
|
10
|
use warnings; |
|
2
|
|
|
|
|
5
|
|
|
2
|
|
|
|
|
148
|
|
5
|
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
use Class::XSAccessor |
7
|
|
|
|
|
|
|
constructor => 'new', |
8
|
|
|
|
|
|
|
accessors => [ |
9
|
|
|
|
|
|
|
qw/line location/, |
10
|
2
|
|
|
|
|
23
|
map { "matched_$_" } qw/type keyword keyword_type |
|
14
|
|
|
|
|
45
|
|
11
|
|
|
|
|
|
|
indent items text gherkin_dialect/ |
12
|
|
|
|
|
|
|
], |
13
|
2
|
|
|
2
|
|
12
|
; |
|
2
|
|
|
|
|
4
|
|
14
|
|
|
|
|
|
|
|
15
|
256
|
|
|
256
|
0
|
362
|
sub is_eof { my $self = shift; return !$self->line } |
|
256
|
|
|
|
|
801
|
|
16
|
|
|
|
0
|
0
|
|
sub detach { } |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
sub token_value { |
19
|
2
|
|
|
2
|
0
|
9
|
my $self = shift; |
20
|
2
|
50
|
|
|
|
6
|
return $self->is_eof ? "EOF" : $self->line->get_line_text; |
21
|
|
|
|
|
|
|
} |
22
|
|
|
|
|
|
|
|
23
|
|
|
|
|
|
|
1; |