NAME
Import::Into - import packages into other packages
SYNOPSIS
package My::MultiExporter;
use Import::Into;
use Thing1 ();
use Thing2 ();
sub import {
my $target = caller;
Thing1->import::into($target);
Thing2->import::into($target, qw(import arguments));
}
DESCRIPTION
Writing exporters is a pain. Some use Exporter, some use Sub::Exporter,
some use Moose::Exporter, some use Exporter::Declare ... and some things
are pragmas.
If you want to re-export other things, you have to know which is which.
Exporter subclasses provide export_to_level, but if they overrode their
import method all bets are off. Sub::Exporter provides an into parameter
but figuring out something used it isn't trivial. Pragmas need to have
their "import" method called directly since they affect the current unit
of compilation.
It's ... annoying.
However, there is an approach that actually works for all of these
types.
eval "package $target; use $thing;"
will work for anything checking caller, which is everything except
pragmas. But it doesn't work for pragmas - pragmas need:
$thing->import;
So, the solution is:
my $sub = eval "package $target; sub { shift->import(\@_) }";
$sub->($thing, @import_args);
which means that import is called from the right place for pragmas to
take effect, and from the right package for caller checking to work.
Remembering all this, however, is excessively irritating. So I wrote a
module so I didn't have to anymore. Loading Import::Into will create a
method "import::into" which you can call on a package to import it into
another package. So now you can simply write:
use Import::Into;
$thing->import::into($target, @import_args);
Just make sure you already loaded $thing - if you're receiving this from
a parameter, I recommend using Module::Runtime:
use Import::Into;
use Module::Runtime qw(use_module);
use_module($thing)->import::into($target, @import_args);
And that's it.
AUTHOR
mst - Matt S. Trout (cpan:MSTROUT) <
[email protected]>
CONTRIBUTORS
None yet - maybe this software is perfect! (ahahahahahahahahaha)
COPYRIGHT
Copyright (c) 2010-2011 the Import::Into "AUTHOR" and "CONTRIBUTORS" as
listed above.
LICENSE
This library is free software and may be distributed under the same
terms as perl itself.