blib/lib/List/SomeUtils/PP.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 35 | 42 | 83.3 |
line | l | !l | condition |
---|---|---|---|
64 | 39994 | 8 | &$f() and return 1 |
80 | 39996 | 5 | &$f() and return 0 |
241 | 0 | 5 | @$list = (@{$list;}[0 .. $c], $val, @{$list;}[$c + 1 .. $#$list]) and return 1 |
249 | 0 | 7 | @$list = (@{$list;}[0 .. $c], $val, @{$list;}[$c + 1 .. $#$list]) and return 1 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
55 | 2643 | 13 | 10 | &$f() and $found++ |
99 | 2643 | 13 | 10 | &$f() and $found++ |
108 | 59995 | 10005 | 0 | &$f() and ++$count |
284 | 5 | 8 | 14 | $more &&= !&$test() |
293 | 3 | 6 | 18 | $more &&= do { my $x = $lag; $lag = !&$test(); $x } |
398 | 8 | 14 | 0 | $max < $#$_ and $max = $#$_ |
line | l | !l | condition |
---|---|---|---|
72 | 24999 | 5 | &$f() or return 0 |
88 | 19999 | 6 | &$f() or return 1 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
116 | 20003 | 49997 | 0 | &$f() or ++$count |
266 | 4 | 6 | 19 | $started ||= do { my $x = $lag; $lag = &$test(); $x } |
277 | 10 | 6 | 11 | $started ||= &$test() |
373 | 0 | 0 | 10 | $index == 0 or $index > $max |