| blib/lib/constant/defer.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 14 | 71.4 |
| line | true | false | branch |
|---|---|---|---|
| 33 | 2 | 18 | if (ref $name eq 'HASH') |
| 37 | 0 | 18 | unless (@_) |
| 46 | 1 | 17 | if ($name =~ /::([^:]*)$/s) { } |
| 82 | 14 | 3 | if (@ret == 1) { } |
| 0 | 3 | elsif (@ret == 0) { } | |
| 107 | 0 | 17 | unless eval { do { *$fullname = $subr } } |
| 115 | 0 | 18 | if ($name =~ /[()] # no parens like CODE(0x1234) if miscounted args |^[0-9] # no starting with a number |^$ # not empty /x) |