| inc/Sub/Uplevel.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 10 | 80.0 |
| line | true | false | branch |
|---|---|---|---|
| 122 | 22 | 646 | if (defined $caller[0] and $caller[0] eq 'Sub::Uplevel') |
| 124 | 22 | 0 | unless $saw_uplevel |
| 130 | 0 | 115 | if $height < 0 |
| 133 | 25 | 90 | if (wantarray) { } |
| 134 | 14 | 11 | unless (@_) |