| line |
true |
false |
branch |
|
24
|
1 |
1 |
if ($re{$self} =~ m<^
(?: # prefix for qr//'s, without allowing /i :
\(\? ([a-hj-z]*) (?:-[a-z]*)?:
)?
(\\[GA]|\^) # anchor
([^#\$()*+.?[\]\\^]+) # literal pat (no metachars or comments)
>x) |
|
34
|
0 |
1 |
if $anchor eq '^' and $mod =~ /m/ |
|
36
|
0 |
1 |
if $mod =~ /x/ |
|
82
|
0 |
0 |
unless ref $re eq 'Regexp' |
|
84
|
0 |
0 |
defined $prefix ? : |
|
94
|
0 |
0 |
if defined $prefix and index($term, $prefix) != 0 |
|
95
|
0 |
0 |
unless $term =~ /$re/ |
|
124
|
0 |
0 |
unless $lexcn->next |
|
135
|
0 |
0 |
$max_doc ? : |
|
187
|
0 |
0 |
if $field{$self->get_parent} ne $field_name |
|
198
|
0 |
0 |
unless defined $term_vector |
|
243
|
0 |
0 |
if $pos{$self} >= $#$doc_nums |
|
251
|
0 |
0 |
$pos < scalar @$doc_nums ? : |