File Coverage

blib/lib/Import/Into.pm

Criterion	Covered	Total	%
statement	23	25	92.0
branch	11	12	91.6
condition	7	15	46.6
subroutine	6	7	85.7
pod			n/a
total	47	59	79.6

package Import::Into;

use strict;
use warnings FATAL => 'all';
use Module::Runtime;

our $VERSION = '1.002005';

sub _prelude {
  my $target = shift;
  my ($package, $file, $line, $level)
    = ref $target         ? @{$target}{qw(package filename line level)}
    : $target =~ /[^0-9]/ ? ($target)
                          : (undef, undef, undef, $target);
  if (defined $level) {
    my ($p, $fn, $ln) = caller($level + 2);
    $package ||= $p;
    $file    ||= $fn;
    $line    ||= $ln;
  }
  qq{package $package;\n}
    . ($file ? "#line $line \"$file\"\n" : '')
}

sub _make_action {
  my ($action, $target) = @_;
  my $version = ref $target && $target->{version};
  eval _prelude($target)
    . q[sub {]
    . q[  my $module = shift;]
    . q[  Module::Runtime::require_module($module);]
    . (ref $target && exists $target->{version} ? q[  $module->VERSION($version);] : q[])
    . q[  $module->].$action.q[(@_);]
    . q[}]
    or die "Failed to build action sub to ${action} for ${target}: $@";
}

sub import::into {
  my ($class, $target, @args) = @_;
  _make_action(import => $target)->($class, @args);
}

sub unimport::out_of {
  my ($class, $target, @args) = @_;
  _make_action(unimport => $target)->($class, @args);
}

1;

__END__