| blib/lib/Hash/PriorityQueue.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 18 | 77.7 |
| line | true | false | branch |
|---|---|---|---|
| 21 | 3 | 0 | if (defined $op) |
| 23 | 3 | 0 | if (not @{$$self{'queue'}{$op};}) |
| 25 | 0 | 3 | if ($$self{'min_key'} == $op) |
| 34 | 8 | 54 | unless (defined $$self{'min_key'}) |
| 39 | 38 | 16 | unless (@{$$self{'queue'}{$$self{'min_key'}};}) |
| 50 | 4 | 55 | if (defined $op) |
| 52 | 4 | 0 | unless (@{$$self{'queue'}{$op};}) |
| 59 | 17 | 42 | if (not defined $$self{'min_key'} or $priority < $$self{'min_key'}) { } |
| 2 | 75 | elsif ($priority > $$self{'min_key'} and (defined $op and not defined $$self{'queue'}{$op})) { } |