sub foo {
    $_[-1] eq '__WHENCE__' and return __PACKAGE__;
    . . . .
}