package Foo::Bar; # this is a hard-coded package name
use 5.010;
{
use package::compute "../Quux";
say __PACKAGE__; # says "Foo::Quux";
say __RPACKAGE__("./Xyzzy"); # says "Foo::Quux::Xyzzy";
sub hello { say __PACKAGE__ };
}
say __PACKAGE__; # says "Foo::Bar" (lexically scoped!)
Foo::Quux->hello; # says "Foo::Quux"