| blib/lib/List/Util/PP.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 47 | 75 | 62.6 |
| line | l | !l | condition |
|---|---|---|---|
| 110 | 36 | 11 | &$f() and return $_ |
| 187 | 3 | 3 | &$f() and return Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018. |
| 199 | 3 | 2 | &$f() and return Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018. |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 41 | 25 | 0 | 0 | $pkg eq "List::Util" and @_ < 2 |
| 52 | 4 | 3 | 25 | length ref $f and eval { do { $f = \&$f; 1 } } |
| 76 | 0 | 0 | 5 | length ref $f and eval { do { $f = \&$f; 1 } } |
| 104 | 3 | 2 | 18 | length ref $f and eval { do { $f = \&$f; 1 } } |
| 126 | 45 | 16 | 0 | $_ < $min and $min = $_ |
| 134 | 34 | 9 | 0 | $_ > $max and $max = $_ |
| 142 | 16 | 6 | 0 | $_ lt $min and $min = $_ |
| 150 | 19 | 3 | 0 | $_ gt $max and $max = $_ |
| 169 | 0 | 0 | 4 | length ref $f and eval { do { $f = \&$f; 1 } } |
| 181 | 0 | 0 | 5 | length ref $f and eval { do { $f = \&$f; 1 } } |
| 193 | 0 | 0 | 4 | length ref $f and eval { do { $f = \&$f; 1 } } |
| 205 | 0 | 0 | 4 | length ref $f and eval { do { $f = \&$f; 1 } } |
| 265 | 0 | 0 | 11 | length ref $f and eval { do { $f = \&$f; 1 } } |
| 290 | 0 | 0 | 7 | length ref $f and eval { do { $f = \&$f; 1 } } |
| 315 | 0 | 0 | 5 | length ref $f and eval { do { $f = \&$f; 1 } } |
| 357 | 333450 | 0 | 3 | ref $nv and defined &overload::ov_method |
| 333450 | 0 | 3 | ref $nv and defined &overload::ov_method and defined &overload::mycan |
| line | l | !l | condition |
|---|---|---|---|
| 175 | 10 | 1 | &$f() or return Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018. |
| 211 | 10 | 1 | &$f() or return Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018. |
| 460 | 3 | 1 | &max(map($#$_, @_)) || -1 |
| 467 | 1 | 0 | &min(map($#$_, @_)) || -1 |
| 476 | 3 | 1 | &max(map($#$_, @_)) || -1 |
| 483 | 1 | 0 | &min(map($#$_, @_)) || -1 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 360 | 3 | 0 | 0 | overload::ov_method(overload::mycan($package, '(0+'), $package) || overload::ov_method(overload::mycan($package, '""'), $package) || overload::ov_method(overload::mycan($package, 'bool'), $package) |
| 377 | 82 | 133 | 303450 | $nv != $nv or $nv == "Inf" |