etc/whichpm0

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use File::Spec::Functions qw(catfile);
   5
   6 my @loaded = grep {
   7     eval "require $_";
   8     !$@ ? 1 : ($@ =~ s/\(\@INC contains: \Q@INC\E\)//, warn("Failed lo
   9 +ading $_: $@"), 0);
  10 } @ARGV;
  11
  12 my @pm = map catfile(split '::') . (/\.pm\z/ ? '' : '.pm'), @loaded;
  13
  14 print "@INC{@pm}\n";
  15
  16 __END__
  17 http://www.perlmonks.org/?node=whichpm
  18 http://search.cpan.org/~jkutej/App-whichpm-0.04/script/whichpm
  19
  20 For Version info.:
  21 alias modver="perl -e\"eval qq{use \\\$ARGV[0];\\\\\\\$v=\\\\\\\$\\\${ARGV[0]}::VERSION;};\ print\\\$@?qq{No module found\\n}:\\\$v?qq{Version \\\$v\\n}:qq{Found.\\n};\"\$1"
  22
  23 $ whichpm File::Spec::Functions
  24 /System/Library/Perl/5.18/darwin-thread-multi-2level/File/Spec/Functions.pm
  25
  26 $ modver File::Spec::Functions
  27 Version 3.40