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]'$/) ? : |