sub x {
   my $func = do { no strict 'refs'; *{caller() . '::_x'}{CODE} };
   die() unless defined $func;
   &$func;
   # or &$func(...);
}