Coderefs in @INC (was: Building a Simple Perl Module Database)

[Aristotle]

in reply to Building a Simple Perl Module Database

Did you know you can put coderefs in @INC?

#!/usr/bin/perl -wl
BEGIN {
    unshift @INC, \&magic_inc;
    sub magic_inc {
        print $_[1];
        my $i;
        return \&magic_load if $_[1] eq "Foo/Bar.pm";
    }

    my @src = ("print q(Foo::Bar loaded!);", "1;");
    sub magic_load {
        return defined($_ = shift @src);
    }

}

use strict;
use Data::Dumper;
use Foo::Bar;

The interface is somewhat obscure, but this close to the guts, you have to expect it.

Makeshifts last the longest.

[djantzen]

Here's an example use from abigail from last year -- Re: The Future - Managing Modules. Basically it downloads modules needed by the script at runtime if they aren't found on the local machine.