mifflin has asked for the wisdom of the Perl Monks concerning the following question:
I need to determine if a package is loaded. The only way I can see to do that is to look through %::
As an example, if I wanted to find out if FindBin was loaded. I could do this...
Is this the proper way to do this? Is there a better way?if (grep { /\AFindBin::\z/ } keys %::) { print "FindBin is loaded\n"; }
UPDATE:
Thanks, this seems to work using %INC
$ cat x use strict; use warnings; use FindBin; use File::Basename; is_loaded('FindBin'); is_loaded('Data::Dumper'); is_loaded('File::Basename'); sub is_loaded { my ($pkg) = @_; (my $file = $pkg) =~ s/::/\//g; $file .= '.pm'; my @loaded = grep { $_ eq $file } keys %INC; print "package $pkg is " . (@loaded ? '' : 'NOT ') . "loaded\n"; return } $ perl x package FindBin is loaded package Data::Dumper is NOT loaded package File::Basename is loaded
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: How to tell if a package is loaded
by John M. Dlugosz (Monsignor) on May 02, 2011 at 22:56 UTC | |
by tchrist (Pilgrim) on May 02, 2011 at 23:25 UTC | |
by mifflin (Curate) on May 03, 2011 at 00:14 UTC | |
by toolic (Bishop) on May 03, 2011 at 00:25 UTC | |
by educated_foo (Vicar) on May 02, 2011 at 23:38 UTC | |
Re: How to tell if a package is loaded
by toolic (Bishop) on May 02, 2011 at 22:56 UTC | |
Re: How to tell if a package is loaded
by Khen1950fx (Canon) on May 03, 2011 at 03:17 UTC | |
Re: How to tell if a package is loaded
by ambrus (Abbot) on May 03, 2011 at 08:03 UTC |
Back to
Seekers of Perl Wisdom