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 | |
by Eliya (Vicar) on Feb 22, 2011 at 09:56 UTC | |
by Cagao (Monk) on Feb 22, 2011 at 10:40 UTC |