blib/lib/List/Objects/WithUtils/Role/Array.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 28 | 35 | 80.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
160 | 0 | 3 | 4 | ($r = $_[1] + @{$_[0];}) <= $#{$_[0];} && $r >= 0 |
309 | 25 | 0 | 12 | defined $_[1] and my $cb = $_[1] |
457 | 2 | 0 | 4 | $sections and $total |
536 | 13 | 5 | 0 | $params{'left'} && $params{'right'} |
564 | 10 | 4 | 6 | $more &&= !$_[1]->() |
572 | 4 | 2 | 8 | $more &&= do { my $x = $lag; $lag = !$_[1]->(); $x } |
line | l | !l | condition |
---|---|---|---|
170 | 2 | 4 | &Scalar::Util::reftype($_[2]) || '' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
58 | 5 | 0 | 40 | ref $_[0] eq 'ARRAY' || &Scalar::Util::blessed($_[0]) && $_[0]->can('does') && $_[0]->does('List::Objects::WithUtils::Role::Array') |
65 | 23 | 0 | 56 | ref $_ eq 'ARRAY' || &Scalar::Util::blessed($_) && $_->can('does') && $_->does('List::Objects::WithUtils::Role::Array') |
107 | 199 | 0 | 632 | &Scalar::Util::blessed($_[0]) || $_[0] |
550 | 6 | 2 | 20 | $started ||= do { my $x = $lag; $lag = $_[1]->(); $x } |
557 | 8 | 2 | 18 | $started ||= $_[1]->() |