| File: | local/lib/perl5/Sub/Uplevel.pm |
| Coverage: | 23.3% |
| line | % | coverage | branch | |
|---|---|---|---|---|
| 28 | 50 | T | F | if ($tag eq 'uplevel') { } |
| 0 | T | F | elsif ($tag eq ':aggressive') { } | |
| 48 | 0 | T | F | if delete $INC{$m} |
| 60 | 0 | T | F | unless defined scalar &$Caller_Proxy($height) |
| 72 | 0 | T | F | if *CORE::GLOBAL::caller{'CODE'} != \&_uplevel_caller |
| 94 | 50 | T | F | if (caller() eq 'DB') |
| 100 | 50 | T | F | unless @caller |
| 101 | 100 | T | F | unless wantarray |
| 102 | 100 | T | F | @_ ? : |
| 111 | 0 | T | F | unless @Up_Frames |
| 126 | 0 | T | F | if (defined $caller[0] and $caller[0] eq 'Sub::Uplevel') |
| 137 | 0 | T | F | if (caller() eq 'DB') |
| 143 | 0 | T | F | unless @caller |
| 144 | 0 | T | F | unless wantarray |
| 145 | 0 | T | F | @_ ? : |