| line |
true |
false |
branch |
|
45
|
1 |
747 |
unless exists $DEF{$_} |
|
46
|
131 |
2 |
if (exists $opt{'TokenFunc'}) |
|
47
|
1 |
130 |
unless ref $opt{'TokenFunc'} eq 'CODE' |
|
57
|
0 |
132 |
if ($self{'StringLength'} eq '' and $self{'Strategy'} ne 'ordered') |
|
66
|
65026 |
12 |
ref $_[0] eq 'ARRAY' ? : |
|
68
|
32522 |
32519 |
$self->{'CaseSensitive'} ? : |
|
70
|
4 |
4 |
$self->{'__tcheck__'}{$tok} eq ($pre || '') ? : |
|
|
8 |
65033 |
if exists $self->{'__tcheck__'}{$tok} |
|
75
|
516 |
64525 |
if $len > $self->{'__maxlen__'} |
|
87
|
97 |
34 |
if ($self->{'StringLength'}) { } |
|
99
|
193 |
1537 |
unless $tokens[$len] |
|
110
|
97 |
0 |
if $unk |
|
127
|
513 |
1024 |
if $self->{'Strategy'} eq 'ordered' |
|
130
|
16256 |
16256 |
$self->{'CaseSensitive'} ? : |
|
139
|
512 |
512 |
if ($self->{'Strategy'} eq 'wide') { } |
|
|
512 |
0 |
elsif ($self->{'Strategy'} eq 'narrow') { } |
|
155
|
0 |
65027 |
unless $self->{'Comments'} |
|
163
|
47831 |
47829 |
defined $self->{'UnknownCode'} ? : |
|
174
|
1 |
97541 |
unless %$t |
|
176
|
65027 |
32514 |
if (keys %$t == 1) |
|
181
|
144 |
64883 |
if ($level > length $token) { } |
|
190
|
230368 |
207027 |
defined $order ? : |
|
194
|
16113 |
48770 |
if (defined $self->{'TokenEnd'} and not $self->{'StringLength'}) |
|
196
|
15713 |
400 |
if $cmp |
|
200
|
64561 |
322 |
if $cmp |
|
202
|
64561 |
322 |
$cmp ? : |
|
212
|
75232 |
98724 |
defined $order ? : |
|
213
|
0 |
173956 |
if $c eq '' and not defined $self->{'TokenEnd'} |
|
215
|
86804 |
87008 |
$self->{'CaseSensitive'} || !($c =~ /^[a-zA-Z]$/) ? : |
|
|
173812 |
144 |
$c ne '' ? : |
|
218
|
14272 |
18242 |
defined $order ? : |
|
223
|
29330 |
3184 |
if (keys %tok > 1 or not $self->{'MergeSwitches'}) { } |
|
224
|
1672 |
27658 |
if (@{$self->{'__backup__'};}) |
|
240
|
1672 |
1512 |
unless @{$self->{'__backup__'};} |
|
248
|
63457 |
32514 |
if $nlflag |
|
250
|
12737 |
68183 |
if ($pre_flag == 0 and @pre == 1 and $pre[0]) |
|
255
|
92787 |
3184 |
if (keys %tok > 1 or not $self->{'MergeSwitches'}) { } |
|
256
|
46995 |
45792 |
$self->{'CaseSensitive'} || !($c =~ /^'[a-zA-Z]'$/) ? : |
|
267
|
12737 |
83234 |
if ($clear_pre_flag) |
|
268
|
12737 |
0 |
$self->{'Comments'} ? : |
|
276
|
29330 |
3184 |
if (keys %tok > 1 or not $self->{'MergeSwitches'}) { } |
|
279
|
29330 |
0 |
if $unk |
|
315
|
222224 |
218355 |
$self->{'CaseSensitive'} || !($c =~ /^'[a-zA-Z]'$/) ? : |