| inc/deprecate.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 4 | 16 | 25.0 |
| line | true | false | branch |
|---|---|---|---|
| 26 | 0 | 24 | if ($^O eq 'VMS') |
| 32 | 0 | 24 | if $site eq $priv |
| 33 | 0 | 24 | if (uc "$priv/$expect_leaf" eq uc $file) |
| 46 | 0 | 12 | if (__loaded_from_core($package, $file, $expect_leaf)) |
| 50 | 0 | 0 | if $caller[7] and $caller[6] eq $expect_leaf |
| 53 | 0 | 0 | unless (@caller) |
| 65 | 0 | 0 | if (defined $callers_bitmask and vec($callers_bitmask, $warnings::Offsets{'deprecated'}, 1) || vec($callers_bitmask, $warnings::Offsets{'all'}, 1)) |
| 68 | 0 | 0 | if (my $deb = $DEBIAN_PACKAGES{$package}) { } |