That seems like an over-complicated way of doing:

use Exporter ();

sub import {
   print "Imported\n";
   goto \&Exporter::import;
}
[download]