| blib/lib/Iterator/Flex/Permute.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 9 | 22 | 40.9 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 67 | 0 | 0 | 4 | defined $k and &Scalar::Util::looks_like_number($k) |
| 0 | 0 | 4 | defined $k and &Scalar::Util::looks_like_number($k) and int $k == $k | |
| 0 | 0 | 4 | defined $k and &Scalar::Util::looks_like_number($k) and int $k == $k and $k > 0 |
| line | l | !l | condition |
|---|---|---|---|
| 89 | 0 | 4 | $value //= [] |
| 91 | 0 | 4 | $c //= [(0) x $k] |
| 92 | 0 | 4 | $i //= 1 |
| 93 | 0 | 4 | $restart //= Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.42.0/B/Deparse.pm line 5762. |
| 153 | 0 | 2 | $combination //= [0 .. $k - 1] |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 64 | 4 | 0 | 0 | delete $pars{'k'} // @$array |