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]}; } |