dgl · March 19, 2011 16:44
diff --git a/Plugin.pm b/Plugin.pm
 package Aaaaaaaa::Test::Plugin;
 use Aaaaaaaa::Test;

 sub import {
  my($class) = @_;
  goto \&{Aaaaaaaa::Test->can("import")};
 }

 1;

diff --git a/t.pl b/t.pl
 use Aaaaaaaa::Test::Plugin;
diff --git a/Test.pm b/Test.pm
 package Aaaaaaaa::Test;
 use Test::More ();

 sub import {
  local $_[0] = "Test::More";
  goto \&{Test::More->can("import")};
 }

 1;
	package Aaaaaaaa::Test::Plugin;
	use Aaaaaaaa::Test;

	sub import {
	my($class) = @_;
	goto \&{Aaaaaaaa::Test->can("import")};
	}

	1;