while (my ($sym_name, $sym_glob) = each %{"${pkg}::"}) {
	push(@things, $sym_name) if (defined ${ *$sym_glob{SCALAR} }) ;
}