Help for this page

Select Code to Download


  1. or download this
    unshift @INC, \&import_hook;
require Foo; # nothing is loaded
require Bar; # nothing is loaded
  2. or download this
    unshift @INC, sub {
    return (undef, sub {0});
}
  3. or download this
    use Tie::Handle::Scalar;
unshift @INC, sub {
    tie *FH, "Tie::Handle::Scalar", ""; # or "1;\n"
    #$INC{$name} = undef; # or $name. testing
    return (*FH);
}