blib/lib/Sort/Rank.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 6 | 8 | 75.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
30 | 0 | 0 | 1007 | ref $item eq 'HASH' and exists $$item{'score'} |
line | l | !l | condition |
---|---|---|---|
33 | 3 | 2 | $extract ||= sub { my $item = shift(); croak(q[Array item must be a hash with a key called 'score'.]) unless ref $item eq 'HASH' and exists $$item{'score'}; return $$item{'score'}; } |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
55 | 5 | 2199 | 1803 | $i == 0 or $ar[$i][0] != $ar[$i - 1][0] |