| blib/lib/SHARYANTO/Array/Util.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 18 | 94.4 |
| line | true | false | branch |
|---|---|---|---|
| 78 | 5 | 6 | if ($ref eq 'ARRAY') { } |
| 1 | 5 | elsif (not $ref) { } | |
| 4 | 1 | elsif ($ref eq 'Regexp') { } | |
| 100 | 0 | 6 | unless ref $ary eq 'ARRAY' |
| 101 | 2 | 4 | unless ref $pat eq 'Regexp' |
| 111 | 10 | 30 | if ($ary->[$i] =~ /$pat/) |
| 112 | 4 | 6 | if @+ > 1 |
| 116 | 5 | 25 | unless ++$i < @$ary |
| 120 | 1 | 1 | if (defined $limit and $limit > 0 and $num_elems >= $limit) |