Skip to content

Instantly share code, notes, and snippets.

@kentfredric

kentfredric/gist:e3896a4a96e931fa7c61 Secret

Created November 20, 2010 02:11
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save kentfredric/e3896a4a96e931fa7c61 to your computer and use it in GitHub Desktop.
Save kentfredric/e3896a4a96e931fa7c61 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
#!/usr/bin/perl
use warnings;
use strict;
use Class::Load qw( load_optional_class );
for my $module ( @ARGV ) {
next unless load_optional_class( $module );
printf "%s => %s\n", $module, $INC{ Class::Load::_mod2pm( $module ) };
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment