Re: Was a module use'd or require'd?

[Anno]

One idea would be to make a snapshot of %INC when compile time ends. If an entry is in the snapshot, the module was use()d, otherwise it was require()d.

For instance:

CHECK {
    my %snap = %INC;

    sub report {
        for ( keys %INC ) {
            my $ans = $snap{ $_} ? 'use()d' : 'require()d';
            print "$_ was $ans\n";
        }
    }
}

Here, report() simply prints a list with each module's status. A more elaborate version could return the status of a module that is passed in.

Of course, %INC can be manipulated in every which way, so the method isn't fool-proof. It makes up for that with simplicity.

Update:
Another possible drawback of this approach is that the module that implements it must itself be use()d and can't be loaded at run time. (It would be too late to run the CHECK block.) That may be true for other solutions also.

Anno