Apply a source filter to all modules to be loaded?

saintmike has asked for the wisdom of the Perl Monks concerning the following question:

Is there a way to hook into the module loading process, so that a source filter gets applied to all modules loaded afterwards?

Some thing like:

BEGIN {
    # ... some magic
}

use Foo::Bar;  # Source filter gets applied 
               # when it's loaded.
[download]

Or is this crazy talk?

Comment on Apply a source filter to all modules to be loaded? Download Code

Replies are listed 'Best First'.
Re: Apply a source filter to all modules to be loaded? by Corion (Patriarch) on Mar 05, 2007 at 18:44 UTC
This is crazy talk, but that's not stopping Perl from having it, see require: `sub my_own_loader { my ($self,$file) = @_; open my $fh, "<", "my/private/dir/$file" or return; $fh }; BEGIN { unshift @INC, \&my_own_loader; }; use Foo::Bar; use The::Net;` [download] You might also want to look at Filter::Simple, but please realize that source filtering isn't a sane practice :)	[reply] [d/l]
Re: Apply a source filter to all modules to be loaded? (yes) by tye (Sage) on Mar 05, 2007 at 18:39 UTC
Is there a way to hook into the module loading process Yes. unshift a code ref onto @INC. so that a source filter gets applied to all modules loaded afterwards [....] Or is this crazy talk? Yes, pretty much. (Some others might care what the original problem you are trying to solve is.) - tye	[reply]
Re: Apply a source filter to all modules to be loaded? by chromatic (Archbishop) on Mar 05, 2007 at 19:22 UTC
Acme::Incorporated does this, if you want a fuller code example.	[reply]