sub import {
  my $pkg = shift;
# A
  my $callpkg = caller($ExportLevel);

  if ($pkg eq "Exporter" and @_ and $_[0] eq "import") {
# B
    *{$callpkg."::import"} = \&import;
    return;
  }
  ...