Branch Coverage

blib/lib/List/MoreUtils/PP.pm
Criterion Covered Total %
branch 152 174 87.3


line true false branch
27 8 39994 if &$f()
37 5 24999 unless &$f()
47 5 39996 if &$f()
57 6 19999 unless &$f()
68 10 2656 if &$f() and $found++
76 1 12 unless @_
84 1 8 unless @_
92 1 8 unless @_
100 1 8 unless @_
108 1 15 unless @_
112 10 2656 if &$f() and $found++
208 20 50038 if &$f()
218 4 16 if &$test()
229 4 16 if $testval
241 3498 22 unless &$f()
242 8 14 if defined $found
245 6 2 defined $found ? :
255 3498 22 unless &$test()
257 8 14 if $found++
269 2900 20 unless my $rv = &$test()
271 8 12 if $found++
273 4 2 $found ? :
282 8 20000 if &$f()
298 4 8 if $testval
314 4 8 if $testval
323 5 1 if $c != -1
330 33 1 if defined $_
331 7 0 if $c != -1
339 6 2 wantarray ? :
408 0 13 $#List::MoreUtils::PP::A > $#List::MoreUtils::PP::B ? :
435 2 20 unless (ref $_ eq 'ARRAY')
440 12 8 if @$_ > $max
445 10 90 if (@_)
448 0 10 unless ($method eq 'index')
455 0 10 if $index == 0 or $index > $max
460 12 78 if $index >= $max
515 163 35 if defined $_
529 4712 1 defined $_ ? :
537 25532 3 defined $_ ? :
538 42300 5 defined $_ ? :
546 24656 3 defined $_ ? :
547 41438 8 defined $_ ? :
555 25524 1 defined $_ ? :
556 42302 6 defined $_ ? :
557 0 6 $seen_undef ? :
6 7 unless wantarray
559 1 6 $seen_undef ? :
568 414 5 defined $_ ? :
570 118 1 defined $l ? :
571 37 82 unless defined $ret[$n]
582 1180 0 defined $_ ? :
583 10 10 unless wantarray
590 0 10 if $seen_undef and $seen_undef == $max
597 1 3 if ($n > @_)
617 0 31 unless @_
622 28 10019 if ($_[$i - 1] <= $_[$i]) { }
624 1 27 if $min > $_[$i - 1]
625 8 20 if $max < $_[$i]
629 10016 3 if $min > $_[$i]
630 6 10013 if $max < $_[$i - 1]
634 25 6 if (@_ & 1)
637 22 3 if ($_[$i - 1] <= $_[$i]) { }
639 0 22 if $min > $_[$i - 1]
640 1 21 if $max < $_[$i]
644 3 0 if $min > $_[$i]
645 0 3 if $max < $_[$i - 1]
654 0 25 unless @_
659 0 1352 if ($_[$i - 1] le $_[$i]) { }
661 0 0 if $min gt $_[$i - 1]
662 0 0 if $max lt $_[$i]
666 1352 0 if $min gt $_[$i]
667 0 1352 if $max lt $_[$i - 1]
671 24 1 if (@_ & 1)
674 22 2 if ($_[$i - 1] le $_[$i]) { }
676 0 22 if $min gt $_[$i - 1]
677 1 21 if $max lt $_[$i]
681 2 0 if $min gt $_[$i]
682 0 2 if $max lt $_[$i - 1]
708 11 18230 if $k >= @_
713 1000 1004 wantarray ? :
2004 16223 if $rc == 0
716 8212 8011 if ($rc < 0) { }
740 11 9246 if $k >= @_
745 1004 8239 if $rc == 0
747 4169 4070 if ($rc < 0) { }
770 8833 9007 if (&$code() < 0) { }
794 766 839 if (&$code() <= 0) { }