line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package TOML::Parser::Tokenizer::Strict; |
2
|
20
|
|
|
20
|
|
319
|
use 5.010000; |
|
20
|
|
|
|
|
67
|
|
3
|
20
|
|
|
20
|
|
98
|
use strict; |
|
20
|
|
|
|
|
43
|
|
|
20
|
|
|
|
|
374
|
|
4
|
20
|
|
|
20
|
|
90
|
use warnings; |
|
20
|
|
|
|
|
51
|
|
|
20
|
|
|
|
|
506
|
|
5
|
|
|
|
|
|
|
|
6
|
20
|
|
|
20
|
|
4592
|
use parent qw/TOML::Parser::Tokenizer/; |
|
20
|
|
|
|
|
4796
|
|
|
20
|
|
|
|
|
94
|
|
7
|
20
|
|
|
20
|
|
5805
|
BEGIN { import TOML::Parser::Tokenizer qw/:constant/ } |
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
sub grammar_regexp { |
10
|
363
|
|
|
363
|
0
|
459
|
my $grammar_regexp = {%{ shift->SUPER::grammar_regexp() }}; |
|
363
|
|
|
|
|
731
|
|
11
|
363
|
|
|
|
|
922
|
$grammar_regexp->{table} = {%{ $grammar_regexp->{table} }}; |
|
363
|
|
|
|
|
979
|
|
12
|
363
|
|
|
|
|
652
|
$grammar_regexp->{array_of_table} = {%{ $grammar_regexp->{array_of_table} }}; |
|
363
|
|
|
|
|
850
|
|
13
|
363
|
|
|
|
|
1115
|
$grammar_regexp->{table}->{key} = qr{(?:"(.*?)(?
|
14
|
363
|
|
|
|
|
819
|
$grammar_regexp->{array_of_table}->{key} = qr{(?:"(.*?)(?
|
15
|
363
|
|
|
|
|
726
|
$grammar_regexp->{key} = qr{(?:"(.*?)(?
|
16
|
363
|
|
|
|
|
722
|
return $grammar_regexp; |
17
|
|
|
|
|
|
|
} |
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
1; |
20
|
|
|
|
|
|
|
__END__ |