Re: Getting module to call importer's function

[etcshadow]

I think that:

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

Is what you're looking for.

[chromatic]

That's potentially too smart by half.

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