| line |
true |
false |
branch |
|
53
|
1 |
743 |
unless exists $DEF{$_} |
|
54
|
130 |
2 |
if (exists $opt{'TokenFunc'}) |
|
55
|
1 |
129 |
unless ref $opt{'TokenFunc'} eq 'CODE' |
|
65
|
0 |
131 |
if ($self{'StringLength'} eq '' and $self{'Strategy'} ne 'ordered') |
|
74
|
64130 |
11 |
ref $_[0] eq 'ARRAY' ? : |
|
76
|
32072 |
32071 |
$$self{'CaseSensitive'} ? : |
|
77
|
4 |
4 |
$$self{'__tcheck__'}{$tok} eq ($pre || '') ? : |
|
|
8 |
64135 |
if exists $$self{'__tcheck__'}{$tok} |
|
83
|
515 |
63628 |
if $len > $$self{'__maxlen__'} |
|
95
|
96 |
34 |
if ($$self{'StringLength'}) { } |
|
107
|
192 |
1536 |
unless $tokens[$len] |
|
118
|
96 |
0 |
if $unk |
|
135
|
512 |
1024 |
if $$self{'Strategy'} eq 'ordered' |
|
138
|
16032 |
16032 |
$$self{'CaseSensitive'} ? : |
|
147
|
512 |
512 |
if ($$self{'Strategy'} eq 'wide') { } |
|
|
512 |
0 |
elsif ($$self{'Strategy'} eq 'narrow') { } |
|
163
|
0 |
64129 |
unless $$self{'Comments'} |
|
170
|
46768 |
46769 |
defined $$self{'UnknownCode'} ? : |
|
182
|
1 |
94369 |
unless %$t |
|
184
|
64129 |
30240 |
if (keys %$t == 1) |
|
189
|
144 |
63985 |
if ($level > length $token) { } |
|
197
|
228432 |
207091 |
defined $order ? : |
|
202
|
15889 |
48096 |
if (defined $$self{'TokenEnd'} and not $$self{'StringLength'}) |
|
204
|
15729 |
160 |
if $cmp |
|
208
|
63985 |
0 |
if $cmp |
|
210
|
63985 |
0 |
$cmp ? : |
|
220
|
72112 |
93600 |
defined $order ? : |
|
|
0 |
165712 |
unless my $c = __quotechar__(substr($n, defined $order ? $$order[$level] : $level, 1)) or defined $$self{'TokenEnd'} |
|
222
|
81152 |
84416 |
$$self{'CaseSensitive'} || !($c =~ /^[a-zA-Z]$/) ? : |
|
|
165568 |
144 |
$c ne '' ? : |
|
226
|
13360 |
16880 |
defined $order ? : |
|
231
|
27888 |
2352 |
if (keys %tok > 1 or not $$self{'MergeSwitches'}) { } |
|
232
|
1568 |
26320 |
if (@{$$self{'__backup__'};}) |
|
248
|
1568 |
784 |
unless @{$$self{'__backup__'};} |
|
256
|
62560 |
30240 |
if $nlflag |
|
258
|
12294 |
66983 |
if ($pre_flag == 0 and @pre == 1 and $pre[0]) |
|
263
|
90448 |
2352 |
if (keys %tok > 1 or not $$self{'MergeSwitches'}) { } |
|
264
|
45120 |
45328 |
$$self{'CaseSensitive'} || !($c =~ /^'[a-zA-Z]'$/) ? : |
|
275
|
12294 |
80506 |
if ($clear_pre_flag) |
|
276
|
12294 |
0 |
$$self{'Comments'} ? : |
|
284
|
27888 |
2352 |
if (keys %tok > 1 or not $$self{'MergeSwitches'}) { } |
|
287
|
27888 |
0 |
if $unk |
|
320
|
220528 |
217347 |
$$self{'CaseSensitive'} || !($c =~ /^'[a-zA-Z]'$/) ? : |