#!/usr/bin/perl
use strict;
use warnings;

use File::Find;

my @files;
sub wanted {
  my $file = $_ =~/.pm$/ ? $File::Find::name : undef;
  push @files, $file if $file;
}

my @directories = ('/home/me/Documents/');
find(\&wanted,  @directories);

my $module_directory = $directories[0].'www/files/lib/';

my $modules;
for my $file (@files) {
  open my $fh, '<', $file or die "$file: $!";
  my $file_convert = $file;
     $file_convert =~ s/$module_directory(.+)\.pm/$1/;
     $file_convert =~ s/\//::/g;

  while (<$fh>) {
    chomp;
    if ($_ =~ s/^use ((:|\w)+)(.+)/$1/) {
      push @{$modules->{$file_convert}{'uses'}}, $1;    # what modules the module uses
      push @{$modules->{$1}{'used by'}}, $file_convert; # what modules use this module
    }
  }
}

my $in = shift;
use Data::Dumper;
print Dumper($modules->{$in});

##</code><code>##

me@office:~$ perl Documents/scripts/find_module_use.pl 'RolePlaying::Random'
$VAR1 = {
          'used by' => [
                         'RolePlaying::CharacterMutation',
                         'RolePlaying::Random::Range',
                         'RolePlaying::Random::Time',
                         'RolePlaying::Random::SpecialAttack',
                         'RolePlaying::Random::Title',
                         'RolePlaying::Random::WildPsionics',
                         'RolePlaying::Random::Descriptor',
                         'RolePlaying::Random::Spell',
                         'RolePlaying::Random::SavingThrow',
                         'RolePlaying::Random::Color',
                         'RolePlaying::Random::Monster',
                         'RolePlaying::Random::GemMetalJewelry',
                         'RolePlaying::Random::Thing',
                         'RolePlaying::Random::Weapon',
                         'RolePlaying::Random::Size',
                         'RolePlaying::Random::Food',
                         'RolePlaying::Random::Misc',
                         'RolePlaying::Random::Event',
                         'RolePlaying::Random::Water',
                         'RolePlaying::Random::Class',
                         'RolePlaying::Random::MagicItem',
                         'RolePlaying::Random::Color::VisiBone',
                         'RolePlaying::Random::Body::Function',
                         'RolePlaying::Random::Body::Modification'
                       ],
          'uses' => [
                      'strict',
                      'warnings',
                      'Exporter',
                      'List::Util'
                    ]
        };