#!/usr/bin/perl
use My::Module qw(testsub);

### works, but seems to defeat the purpose of Exporter
# *testsub = \&My::Module::testsub;

print testsub(), "\n";

sub testsub { # "local" definition of subroutine
    return "local subroutine";
}

##</code><code>##

package My::Module;
BEGIN {
  use Exporter ();
  @ISA       = qw(Exporter);
  @EXPORT_OK = qw(testsub);
}

sub testsub { # new definition for subroutine
    return "module subroutine";
}
1;