package MyImporter;
use warnings;
use strict;
use Sub::Uplevel qw/:aggressive/;
sub import_for_me {
my ($pkg, @p) = @_;
my $level = 1;
my $import = $pkg->can('import');
if ($import) {
uplevel $level, $import, ($pkg, @p);
} else {
warn "no import in $pkg\n";
}
}
1;