| blib/lib/PerlX/Maybe.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 25 | 30 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 2 | 3 | if (@_ == 1) { } |
| 0 | 3 | elsif (grep((ref $_ || /^-/), @_)) { } | |
| 109 | 24 | 12 | if (shift()) { } |
| 113 | 0 | 24 | unless $t |
| 116 | 8 | 16 | if ($t eq 'ARRAY') { } |
| 2 | 14 | elsif ($t eq 'CODE') { } | |
| 8 | 6 | elsif ($t eq 'HASH') { } | |
| 6 | 0 | elsif (do { require Scalar::Util; &Scalar::Util::blessed($r) }) { } | |
| 118 | 4 | 4 | unless $m |
| 124 | 1 | 1 | unless $m |
| 130 | 4 | 4 | unless $m |
| 137 | 0 | 6 | if $@ |
| 138 | 3 | 3 | unless $m |
| 151 | 8 | 3 | if defined $vals[$i] and defined $vals[$i + 1] |
| 158 | 12 | 0 | scalar @_ > 0 ? : |