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();
####
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 line 5.
Execution of ./889426.pl aborted due to compilation errors.