perl-Import-Into-1.001001-2.1.2 > t 4 D p REC/= w](dؓ8!&Bd[DӪM3?4"̎4*\ ye=541CP'1BaۺI#)x,O嶈=6Iѿ|` vЫIGACYD|}snԁe{Y&Y* M]OMp&9В Tyw3 =DMǣ 4ҶME'?l>3d a<s\b2 y0X+F8 1b REC/=- (ce(̓(*ew{N tjb罤OP] Db赵|1{wL$J-Gr5co [$%4cѠ{KsZ+Eߜ#e.4. N1c`y &_*/YE__^k^P(,POe%ý:u7|QYN*I6~fڲv,2/$rIs֬>0Vi4ݥ{b37c586d8dcb58f36373af77e57015f29807c35a ( > 0 , ? d " F ` d l p ~ ( 0 4 8 @ ( 8 9 : A B G L H T I \ \ ` ] h ^ c d e f F C perl-Import-Into 1.001001 2.1.2 import packages into other packages Writing exporters is a pain. Some use the Exporter manpage, some use the Sub::Exporter manpage, some use the Moose::Exporter manpage, some use the Exporter::Declare manpage ... and some things are pragmas. If you want to re-export other things, you have to know which is which. the Exporter manpage subclasses provide export_to_level, but if they overrode their import method all bets are off. the Sub::Exporter manpage 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; because they're designed to affect the code currently being compiled - so within an eval, that's the scope of the eval itself, not the module that just 'use'd you - so sub import { eval "use strict;" } doesn't do what you wanted, but sub import { strict->import; } will apply the strict manpage to the calling file correctly. Of course, now you have two new problems - first, that you still need to know if something's a pragma, and second that you can't use either of these approaches alone on something like the Moose manpage or the Moo manpage that's both an exporter and a pragma. So, the complete 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 - and so behaves correctly for all types of exporter, for pragmas, and for hybrids. Remembering all this, however, is excessively irritating. So I wrote a module so I didn't have to anymore. Loading the Import::Into manpage creates a global method 'import::into' which you can call on any package to import it into another package. So now you can simply write: use Import::Into; $thing->import::into($target, @import_args); This works because of how perl resolves method calls - a call to a simple method name is resolved against the package of the class or object, so $thing->method_name(@args); is roughly equivalent to: my $code_ref = $thing->can('method_name'); $code_ref->($thing, @args); while if a '::' is found, the lookup is made relative to the package name (i.e. everything before the last '::') so $thing->Package::Name::method_name(@args); is roughly equivalent to: my $code_ref = Package::Name->can('method_name'); $code_ref->($thing, @args); So since the Import::Into manpage defines a method 'into' in package 'import' the syntax reliably calls that. For more craziness of this order, have a look at the article I wrote at the http://shadow.cat/blog/matt-s-trout/madness-with-methods manpage which covers coderef abuse and the '${\...}' syntax. Final note: You do still need to ensure that you already loaded '$thing' - if you're receiving this from a parameter, I recommend using the Module::Runtime manpage: use Import::Into; use Module::Runtime qw(use_module); use_module($thing)->import::into($target, @import_args); And that's it. RE8build24 &openSUSE 13.1 openSUSE Artistic-1.0 or GPL-1.0+ http://bugs.opensuse.org Development/Libraries/Perl Import-Into-1.001001.tar.gz http://search.cpan.org/dist/Import-Into/ linux noarch QxwRE52473c4b41c877437ae6d076de3bdabe1 b83254400ad602d4af9d914f8b267d12 root root root root perl perl-macros rpmlib(CompressedFileNames) 3.0.4-1 4.11.1 QMcoolo@suse.com - initial package 1.001001 * created by cpanspec 1.78.07 noarch Import-Into-1.001001.tar.gz perl-Import-Into.spec obs://build.opensuse.org/openSUSE:13.1/standard/6489552a6a3bef491fd2c8231ee65198-perl-Import-Into cpio gzip 9 build24 1380313400 ? X8TG*Mn[(܅(rIBicc..I%*R!"EEr %J*$!'ewr'{{]Z[} L L ?!&fT b a*wfQDC=|AC="&&0AJjµk%&X_$W4/s{c$o&oy }lYxSl+&䯖Xs J30pL6QHEݨmm%ll?X7m}]*ѥrOna/5uՊ~sj3܈a mJk.ߓ? N|W,-Yy)5>ž/oȯCc'8q [o]/\r4,.+kit|fJqAV]G>Wz°z$k6U+vD=hjq{,&F
7Z,WO9eV҂BH2|^(ζ-VLS{cFXnrLw
[r-sw"(:'v