sub UNIVERSAL::which_constants {
  my($class, @constants) = @_;

  return grep exists $constant::declared{"$class\::$_"}, @constants;
}