That's potentially too smart by half.

sub x
{
    my $package = caller();
    my $sub     = $package->can( '_x' );
    return unless defined $sub;
    $sub->( @_ );
}
[download]