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