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