Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re^2: Overriding the built-in require function (@INC)

by /dev/urandom (Beadle)
on Feb 04, 2008 at 21:51 UTC ( [id://666120]=note: print w/replies, xml ) Need Help??


in reply to Re: Overriding the built-in require function (@INC)
in thread Overriding the built-in require function

That would not serve my purposes, as any modules in question will not yet be loaded when the subref receives it.

Replies are listed 'Best First'.
Re^3: Overriding the built-in require function (@INC)
by blahblahblah (Priest) on Feb 05, 2008 at 02:35 UTC
    That's precisely the point: @INC is the list of paths that perl will search when it goes to load your module. If you put a code ref into @INC, perl will recognize it and execute it (rather than treating it as a path to search). By pushing your sub onto the front of @INC, you'll ensure that perl checks it first. By returning undef, you'll cause perl to keep looking until it finds the real path.

    The very end of the doc that tye linked, require, describes this in detail. The same @INC method works for use.

      I think the OP's example is misleading you somewhat. When /dev/urandom says "That would not serve my purposes, as any modules in question will not yet be loaded when the subref receives it." I take that to mean that what /dev/urandom will do with the repurposed require function is to actually manipulate the module the instant it gets loaded, before anyone else can do anything with it. The original post said that it illustrated the issue, but not the why of it. Perhaps a better illustration would be:

      *CORE::GLOBAL::require = sub { CORE::require($_[0]); if ($_[0] eq 'Net/Ping.pm') { $Net::Ping::TIMEOUT = 5000; # milliseconds } };
      I believe the OP means that they want to do something like that (I don't think that the code there would work even if everything else works - I don't think Net::Ping has a $TIMEOUT available). Perhaps check the $VERSION, or whatever. Modifying the @INC to include a code ref wouldn't allow for this - you merely return the code (via a filehandle), but at this point, it hasn't been compiled, so you can't interact with it yet.

      I suspect it'd be better to derive from Net::Ping, and change the code to require that module instead... but we really don't have enough details to be definitive about this.

        Modifying the @INC to include a code ref wouldn't allow for this - you merely return the code (via a filehandle), but at this point, it hasn't been compiled, so you can't interact with it yet.

        Oh, but you can :-). You just have to do a bit of work. I just recently described this in Re^3: Notification on module load, and redefinition of module methods.. Enjoy!

        lodin

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://666120]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others scrutinizing the Monastery: (6)
As of 2024-03-28 12:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found