| line |
true |
false |
branch |
|
96
|
0 |
1 |
unless @_ & 1 |
|
98
|
0 |
1 |
if length ref $package |
|
103
|
0 |
0 |
if ($option eq 'debug') { } |
|
|
0 |
0 |
elsif ($option =~ /^exceptions?\z/) { } |
|
|
0 |
0 |
elsif ($option eq 'preprocess') { } |
|
|
0 |
0 |
elsif ($option =~ /^stopwords?\z/) { } |
|
107
|
0 |
0 |
ref $argument ? : |
|
116
|
0 |
0 |
if (defined(my $found = $self->find($key))) { } |
|
122
|
0 |
0 |
if (defined $self->exact($key, my $pos = $self->pos(my $normkey = $self->normalize($key)))) { } |
|
135
|
0 |
0 |
if (defined $self->find($key)) { } |
|
142
|
0 |
0 |
if (defined $self->exact($key, $pos)) { } |
|
158
|
0 |
0 |
unless @{$$self[0];} |
|
164
|
0 |
0 |
if ((my $i = $$self[1] += 3) <= $#{$$self[0];}) { } |
|
191
|
0 |
0 |
if @_ |
|
210
|
0 |
0 |
unless defined(my $pos1 = $self->valid($_, my $pos = $self->pos($_))) |
|
215
|
0 |
0 |
if @deleted |
|
230
|
0 |
0 |
if (defined $_) { } |
|
237
|
0 |
0 |
unless $$self[4] |
|
251
|
0 |
0 |
if (defined $_) { } |
|
254
|
0 |
0 |
unless $$self[2] |
|
269
|
0 |
0 |
if (defined $_) { } |
|
272
|
0 |
0 |
unless $$self[3] |
|
291
|
0 |
0 |
if ($pos < $#{$$self[0];} and lc $$self[0][$pos + 2] eq lc $key) { } |
|
314
|
0 |
0 |
if $debug |
|
321
|
0 |
0 |
unless defined(my $pos = $self->pos($prefix)) |
|
323
|
0 |
0 |
$pos ? : |
|
|
0 |
0 |
if $debug |
|
330
|
0 |
0 |
if $debug |
|
334
|
0 |
0 |
if ($$data[$pos] =~ /$pattern/) { } |
|
335
|
0 |
0 |
if (lc $$data[$pos + 2] eq lc $key) |
|
336
|
0 |
0 |
if $debug |
|
339
|
0 |
0 |
defined $$data[$found] ? : |
|
|
0 |
0 |
if (not defined $found) { } |
|
|
0 |
0 |
elsif (defined $$data[$found] ? !defined($$data[$pos + 1]) || $$data[$pos + 1] ne $$data[$found] : defined $$data[$pos + 1]) { } |
|
341
|
0 |
0 |
if $debug |
|
351
|
0 |
0 |
if $debug |
|
357
|
0 |
0 |
if $debug |
|
360
|
0 |
0 |
$pos > $#$data ? : |
|
|
0 |
0 |
defined $found ? : |
|
|
0 |
0 |
if $debug |
|
397
|
0 |
0 |
if (ref $pp) { } |
|
401
|
0 |
0 |
defined $$exceptions{lc $_} ? : |
|
|
0 |
0 |
exists $$exceptions{lc $_} ? : |
|
409
|
0 |
0 |
unless wantarray |
|
413
|
0 |
0 |
$] < 5.006 ? : |
|
430
|
0 |
0 |
if ($$data[my $c = 3 * int(($a + $b >> 1) / 3)] lt $key) { } |