| blib/lib/Tie/Indexer.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 1 | 50 | 2.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 112 | 0 | 0 | 0 | exists $$index{$expr} and exists $$index{$expr}{$operator} |
| 162 | 0 | 0 | 0 | not $base and defined($index = get_index($tie, $expr, sub { ; } )) |
| 178 | 0 | 0 | 0 | not $index || $base and wantarray || $operator eq sub { package main; no warnings; no strict; not exists $_[1]{$_[0]}; } |
| 214 | 0 | 0 | 0 | &$operator($_, $value) and search($tie, {$key, $node}, @_) |
| line | l | !l | condition |
|---|---|---|---|
| 92 | 0 | 6 | $tie->_get_index || {} |
| 109 | 0 | 0 | $tie->_get_index || (return undef) |
| 127 | 0 | 0 | $$index{$expr} ||= {} |
| 130 | 0 | 0 | $$index{$operator} ||= {} |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 41 | 0 | 0 | 0 | not defined $expr or $expr eq '' |
| 97 | 0 | 0 | 0 | $values ||= do { package main; no strict; sub { keys %{$_[3];}; } } |
| 112 | 0 | 0 | 0 | $force or exists $$index{$expr} and exists $$index{$expr}{$operator} |
| 120 | 0 | 0 | 0 | $indexer ||= $indexers{$operator} |
| 125 | 0 | 0 | 0 | $$index{'​indexers'}{$operator} ||= $indexer |
| 129 | 0 | 0 | 0 | $$index{'​values'} ||= $values |
| 146 | 0 | 0 | 0 | not ref $expr or ref $expr ne 'CODE' |
| 171 | 0 | 0 | 0 | $res{$_} ||= $tie->FETCH($_) |
| 178 | 0 | 0 | 0 | $index || $base |
| 0 | 0 | 0 | wantarray || $operator eq sub { package main; no warnings; no strict; not exists $_[1]{$_[0]}; } |