I'm just wondering, is there a way for an import hook to cancel/ignore/no-op a require() so that this code works?
unshift @INC, \&import_hook;
require Foo; # nothing is loaded
require Bar; # nothing is loaded
I've tried:
unshift @INC, sub {
return (undef, sub {0});
}
use Tie::Handle::Scalar;
unshift @INC, sub {
tie *FH, "Tie::Handle::Scalar", ""; # or "1;\n"
#$INC{$name} = undef; # or $name. testing
return (*FH);
}
Perl seems to go to the next @INC entry for all the above two cases. What am I doing wrong?