our $VERSION = '1.001001'; # 1.1.1
-my %importers;
-
-sub _importer {
+sub _prelude {
my $target = shift;
my ($package, $file, $line)
- = $target =~ /[^0-9]/ ? ($target) : caller($target + 1);
- my $code = qq{package $package;\n}
+ = $target =~ /[^0-9]/ ? ($target) : caller($target + 2);
+ qq{package $package;\n}
. ($file ? "#line $line \"$file\"\n" : '')
- . 'sub { my $m = splice @_, 1, 1; shift->$m(@_) };'."\n";
- my $sub = \(eval $code
- or die "Couldn't build importer for $package: $@");
- $importers{$target} = $sub
- unless $file;
- $sub;
+}
+
+sub _make_action {
+ my ($action, $target) = @_;
+ eval _prelude($target).qq{sub { shift->$action(\@_) }}
+ or die "Failed to build action sub to ${action} for ${target}: $@";
}
sub import::into {
my ($class, $target, @args) = @_;
- $class->${_importer($target)}(import => @args);
+ _make_action(import => $target)->($class, @args);
}
sub unimport::out_of {
my ($class, $target, @args) = @_;
- $class->${_importer($target)}(unimport => @args);
+ _make_action(unimport => $target)->($class, @args);
}
1;