in reply to Export again

So you want MyStandardModules to use other modules and export routines from those modules into the package you use it from?

If so, you could try something like this:

package MyStandardModules; use Time::HiRes (); sub import { my $dest_pkg = caller(); eval "package $dest_pkg; Time::HiRes->import('gettimeofday');"; } 1;
#!/usr/bin/perl -wl use strict; use MyStandardModules; print scalar gettimeofday();

Exporter uses caller to determine where to export to, so you could use caller() yourself, and fake the respective package that import() is being called from (as done in the eval above).

Update: a similar technique can also be used for lexical pragmas, like use strict (which don't really export anything):

package MyStandardModules; use strict; sub import { strict->import(); } 1;
#!/usr/bin/perl { use MyStandardModules; print $foo; # error } print $bar; # "OK", as outside of strict's scope __END__ $ ./889426.pl Global symbol "$foo" requires explicit package name at ./889426.pl lin +e 5. Execution of ./889426.pl aborted due to compilation errors.

Replies are listed 'Best First'.
Re^2: Export again
by Cagao (Monk) on Feb 22, 2011 at 09:33 UTC

    This way appeared the simplest, and works, tho I'm not 100% sure on what...

    eval "package $dest_pkg; Time::HiRes->import('gettimeofday');";

    Is actually doing? I've not seen an eval block being a simple string before?

      eval has two forms, eval EXPR (aka "string eval") and eval BLOCK.

      In this case, a string eval is needed because $dest_pkg isn't known before runtime of the import function.  And this is also the reason the eval is required at all.  In other words, the package statement is a compile-time thing, i.e. you can't say

      package $dest_pkg;

      So what the eval does is shift the compile-time of that particular code fragment to runtime.  This means that when you say use MyStandardModules; from within a package "Foo", $dest_pkg will be "Foo", and the following snippet will be compiled (and executed):

      package Foo; Time::HiRes->import('gettimeofday');

      which has the effect that when Exporter then determines the calling package in its import method (via caller), it will see package "Foo", which is what it then exports the requested routines or variables to.

        Got it! Cheers, makes perfect sense now.