James G Smith <[EMAIL PROTECTED]> said something to this effect on 07/02/2001:
> How would something like this do:
> 
> NAME
> 
> Apache::Use
> 
> SYNOPSIS
> 
> use Apache::Use (Logger => DB, File => "/www/apache/logs/modules");
> 
> DESCRIPTION
> 
> Apache::Use will record the modules used over the course of the 
> Perl interpreter's lifetime.  If the logging module is able, the 
> old logs are read and frequently used modules are automatically 
> loaded.  Note that no symbols are imported into packages.

You can get this information from %INC, can't you? e.g.:

use Time::Local;
use Data::Dumper;
use Apache;

warn map sprintf("%-20.20s\t%s\n", $_, $INC{$_}), keys %INC;

Exporter.pm             /usr/local/perl/5.6.0/Exporter.pm
Carp.pm                 /usr/local/perl/5.6.0/Carp.pm
XSLoader.pm             /usr/local/perl/5.6.0/i686-linux/XSLoader.pm
mod_perl.pm             /usr/local/perl/site_perl/5.6.0/i686-linux/mod_perl.pm
strict.pm               /usr/local/perl/5.6.0/strict.pm
Apache/Connection.pm    /usr/local/perl/site_perl/5.6.0/i686-linux/Apache/Connection.pm
Time/Local.pm           /usr/local/perl/5.6.0/Time/Local.pm
Apache/Table.pm         /usr/local/perl/site_perl/5.6.0/i686-linux/Apache/Table.pm
DynaLoader.pm           /usr/local/perl/5.6.0/i686-linux/DynaLoader.pm
overload.pm             /usr/local/perl/5.6.0/overload.pm
Apache/Constants/Exp    
/usr/local/perl/site_perl/5.6.0/i686-linux/Apache/Constants/Exports.pm
AutoLoader.pm           /usr/local/perl/5.6.0/AutoLoader.pm
Apache/Server.pm        /usr/local/perl/site_perl/5.6.0/i686-linux/Apache/Server.pm
Data/Dumper.pm          /usr/local/perl/5.6.0/i686-linux/Data/Dumper.pm
Apache.pm               /usr/local/perl/site_perl/5.6.0/i686-linux/Apache.pm

Isn't this more or less what you mean?

(darren)

-- 
My studies in Speculative Philosophy, metaphysics, and science are all
summed up in the image of a mouse called man running in and out of every
hole in the Cosmos hunting for the Absolute Cheese.
    -- Edmund Burke

Reply via email to