sub qualify_ns {
   ( my $ns = __PACKAGE__ ) =~ s/::[^:]*$//;
   return "$ns\::$_[0]";
}

use if 1, qualify_ns('Config') => qw(x y z);