##
BEGIN {
( my $ns = __PACKAGE__ ) =~ s/::[^:]*$//;
my @syms = qw(x y z);
eval "use $ns\::Config \@syms";
}
####
BEGIN {
( my $ns = __PACKAGE__ ) =~ s/::[^:]*$//;
my @syms = qw(x y z);
eval "use $ns\::Config \@syms; 1" or die $@;
}
####
sub qualify_ns {
( my $ns = __PACKAGE__ ) =~ s/::[^:]*$//;
return "$ns\::$_[0]";
}
use if 1, qualify_ns('Config') => qw(x y z);