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

##</code><code>##

------------
:Wq
Not an editor command: Wq