sub x {
  my $package = caller;
  return unless UNIVERSAL::can($package, "_x");
  ...
  eval "${package}::_x"; die $@ if $@;
}