You can avoid the temporary files, as I demonstrated at Coderefs in @INC (was: Building a Simple Perl Module Database). Your approach seems like an awful lot of work though - especially as it will fail to work correctly if any module mucks with @INC too much (such as by unshifting an extra path).

Wouldn't something along the lines of the following work better?

#### untested ####

package Test::Without::Module;

use constant REQUIRE_ERROR => q/Can't locate %s.pm in @INC (@INC conta
+ins: %s)/;

my @dont_load_rx;

sub import {
    my $class = shift;
    push @dont_load_rx, map qr/$_/, @_;
}

# prototype("CORE::require") eq ";$"
*CORE::GLOBAL::require = sub (;$) {
    local $_ = $_[0];
    for my $forbidden (@dont_load) {
        /$forbidden/ or next;
        s!::!/!; # possibly OS dependent?
        require Carp;
        Carp::croak(sprintf REQUIRE_ERROR, $_, "@INC");
    }
    goto CORE::require;
};

1;

[download]
Update: switched from die to croak, used goto to chain to the core require, to make the module more transparent to the outside world.

Makeshifts last the longest.

In reply to Re: RFC: Preventing a module from loading by Aristotle
in thread RFC: Preventing a module from loading by Corion

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.