| line |
true |
false |
branch |
|
26
|
0 |
2 |
unless defined $operator |
|
27
|
2 |
0 |
unless (exists $codeindex{$operator}) |
|
41
|
0 |
0 |
if not defined $expr or $expr eq '' |
|
47
|
0 |
0 |
if (UNIVERSAL::isa($value, 'HASH')) { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($value, 'ARRAY')) { } |
|
62
|
0 |
0 |
if ($$index[3]) { } |
|
72
|
0 |
0 |
if ($$index[3]) { } |
|
77
|
0 |
0 |
if $$index[1]($value, get_value($tie, $$index[2], $node)) |
|
94
|
0 |
0 |
if $expr =~ /^\x{200b}[^\x{200b}]/ |
|
96
|
0 |
0 |
if exists $$eindex{'​values'} |
|
99
|
0 |
0 |
if exists $$index{'​indexers'}{$operator} |
|
110
|
0 |
0 |
unless defined $expr |
|
112
|
0 |
0 |
unless $force or exists $$index{$expr} and exists $$index{$expr}{$operator} |
|
118
|
0 |
0 |
if exists $operators{$operator} |
|
120
|
0 |
0 |
if exists $indexers{$operator} |
|
125
|
0 |
0 |
if defined $indexer |
|
129
|
0 |
0 |
if defined $values |
|
137
|
0 |
0 |
if (ref $base eq 'HASH') { } |
|
138
|
0 |
0 |
wantarray ? : |
|
|
0 |
0 |
unless @_ |
|
144
|
0 |
0 |
if exists $operators{$expr} |
|
146
|
0 |
0 |
if (not ref $expr or ref $expr ne 'CODE') { } |
|
|
0 |
0 |
elsif (ref $expr eq 'CODE') { } |
|
148
|
0 |
0 |
if (ref $value eq 'CODE') { } |
|
|
0 |
0 |
elsif (exists $operators{$value}) { } |
|
161
|
0 |
0 |
if ($operator ne sub {
;
}
) |
|
162
|
0 |
0 |
if (defined($index = get_index($tie, $expr, $operator))) { } |
|
|
0 |
0 |
elsif (not $base and defined($index = get_index($tie, $expr, sub {
package main;
no warnings;
no strict;
$_[0] eq $_[1];
}
))) { } |
|
170
|
0 |
0 |
if (&$operator($exp, $value)) |
|
172
|
0 |
0 |
unless wantarray |
|
178
|
0 |
0 |
if (not $index || $base and wantarray || $operator eq sub {
package main;
no warnings;
no strict;
not exists $_[1]{$_[0]};
}
) |
|
187
|
0 |
0 |
if ($operator eq sub {
;
}
) |
|
188
|
0 |
0 |
if (not $expr) { } |
|
195
|
0 |
0 |
if ($index) |
|
196
|
0 |
0 |
if (defined($index = $$index{$value})) |
|
197
|
0 |
0 |
if (not $base) { } |
|
201
|
0 |
0 |
unless exists $$index{$key} |
|
209
|
0 |
0 |
unless ($base) |
|
214
|
0 |
0 |
if &$operator($_, $value) and search($tie, {$key, $node}, @_) |
|
222
|
0 |
0 |
unless &$operator($_, $value) |