Branch Coverage

blib/lib/POE/Queue/Array.pm
Criterion Covered Total %
branch 52 66 78.7


line true false branch
61 1364 6059 unless (@$self)
68 1098 4961 if ($priority >= $self->[-1][0])
75 657 4304 if ($priority < $self->[0][0])
83 140 4164 if (@$self == 2)
103 5 5388 unless @$self
136 6163 48640 if ($upper < $lower)
144 23956 24684 if ($priority < $self->[$midpoint][0])
172 3764 36331 if $upper < $lower
176 18821 17510 if ($priority < $self->[$midpoint][0])
190 3764 215 if $self->[$lower][1] == $id
204 2 232 unless (defined $priority)
213 1 231 unless (&$filter($self->[$item_index][2]))
233 4461 241 unless $count
238 1642 798979 if (&$filter($self->[$i][2]))
242 332 1310 unless --$count
257 0 2032 unless (defined $old_priority)
266 1000 1032 unless (&$filter($self->[$item_index][2]))
274 0 1032 unless $delta
292 0 2000 unless (defined $old_priority)
300 500 1500 if $new_priority == $old_priority
306 500 1000 unless (&$filter($self->[$item_index][2]))
326 0 0 if ($index > 0)
329 0 0 if $before > $at
332 0 0 if ($index < $self->$#*)
336 0 0 if $at >= $after
356 0 2032 unless (@$self)
363 15 2017 if ($new_priority >= $self->[-1][0])
370 18 1999 if ($new_priority < $self->[0][0])
379 0 1999 if (@$self == 2)
389 1500 499 if ($delta > 0) { }
407 1229 0 unless $count
412 5903 265 if (&$filter($self->[$i][2]))
414 998 4905 unless --$count