| blib/lib/Iterator/Flex/Take.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 18 | 25 | 72.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 74 | 1 | 1 | 15 | &Scalar::Util::looks_like_number($n) and int $n == $n |
| 2 | 2 | 13 | &Scalar::Util::looks_like_number($n) and int $n == $n and $n > 0 | |
| 168 | 75 | 15 | 5 | not $value and $src->$is_exhausted |
| 221 | 0 | 0 | 0 | Ref::Util::XS::is_blessed_ref($@) and $@->isa("Iterator::Flex::Failure::Exhausted") |
| line | l | !l | condition |
|---|---|---|---|
| 72 | 17 | 0 | $n //= 1 |
| 77 | 6 | 7 | delete $pars{'lazy'} // 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. |
| 101 | 0 | 13 | $current //= undef |
| 102 | 0 | 13 | $prev //= undef |
| 103 | 0 | 13 | $next //= 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 162 | 10 | 6 | 95 | $iterator_state == 1 or $took == $n |