package MY;
use strict;
use warnings;

my $Imported_from;
sub import { $Imported_from = caller };

use Filter::Simple;
FILTER_ONLY code => sub { s/(\w+::)*MY::/${Imported_from}::MY::/gs };

1;