| blib/lib/Array/Heap/PriorityQueue/Compare.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 2 | 4 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 61 | 0 | 1 | unless ref $compare eq 'CODE' |
| 66 | 0 | 1 | unless my $f = ($funcs{$pkg} ||= eval "package $pkg;" . "[\n sub { &Array::Heap::push_heap_cmp },\n sub { &Array::Heap::pop_heap_cmp },\n sub { &Array::Heap::make_heap_cmp },\n sub { my (\$cmp, \$heap) = \@_; sort \$cmp \@\$heap },\n ]") |