| blib/lib/returning.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 16 | 62.5 |
| line | true | false | branch |
|---|---|---|---|
| 25 | 1 | 0 | if (ref $arg eq 'HASH') { } |
| 0 | 0 | elsif ($arg =~ /^[^\W\d]\w*$/) { } | |
| 30 | 0 | 5 | unless $func =~ /^[^\W\d]\w*$/ |
| 33 | 1 | 0 | if $] |
| 3 | 2 | 'CODE' eq ref $v ? : | |
| 72 | 1 | 5 | if ($want) { } |
| 5 | 0 | elsif (defined $want) { } | |
| 81 | 4 | 1 | if defined prototype $orig_code |